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PREFACE 



This document is the reference manual to the Pascal/VS programming language. The 
Pascal/VS Programmer's Guide, SH20-6162, is also available from IBM to help write 
programs in Pascal/VS. 

It is assumed that you are already familiar with Pascal and programming in a high 
level programming language. There are many text books available on Pascal? the fol- 
lowing list of books was taken from the Pascal User's Group Pascal News, December 
1978 NUMBER 13 and September 1979 NUMBER 15. You may wish to check later editions of 
Pascal News and your library for more recent books. 

The Design of Well-Structured and Correct Programs by S. Alagic and M.A. Arbib, 
Springer-Verlag, New York, 1978, 292 pp. 

Microcomputer Problem Solving by K.L. Bowles, Springei — Verlag, New York, 1977, 
563 pp. 

A St ructured Programming Approach to Data by D. Coleman, MacMillan Press Ltd, 

London, 1978, 222 pp. 

A P rimer on Pascal by R.W. Conway, D. Gries and E.C. Zimmerman, Winthrop Pub- 
lishers Inc., Cambridge Mass., 1976, 433 pp. 

PASCAL 1 An Introduction to Methodical Programming by W. Findlay and D. Watt, 
Computer Science Press, 1978, 306 pp.; UK Edition by Pitman International Text, 
1978. 

Programming in PASCAL by Peter Grogono, Addi son-Wesley , Reading Mass., 1978, 
357pp. 

Pascal Users Manual and Report by K. Jensen and N. Wirth, Springei — Verlag, New 
York, 1978, 170 pp. 

Structured Programming and Problem-Solving with Pascal by R.B. Kieburtz, 
Prentice-Hall Inc., 1978, 365 pp. 

Programming via Pascal by J.S. Rohl and Barrett, Cambridge University Press. 

An Introduction to Programming and Problem-Solving with Pascal by G . M . 
Schneider, S.W. Weingart and D.M. Perlman, Wiley & Sons Inc., New York, 394 pp. 

Introduction to Pascal by C.A.G. Webster, Heyden, 1976, 129 pp. 

I ntroduction to Pascal by J. Welsh and J. Elder, Prentice-Hall Inc., Englewood 
Cliffs, 220 pp. 

A Practical Introduction to Pascal by I. P. Wilson and A.M. Addyman, 

Springei — Verlag New York, 1978, 145pp; MacMillan, London, 1978. 

Systematic Programming^ An Introduction by N. Wirth, Prentice-Hall Inc., 
Englewood Cliffs, 1973 169 pp. 

Algorithms + Data Structures = Programs by N. Wirth, Prentice-Hall Inc., 
Englewood Cliffs, 1976 366 pp. 

This reference manual considers ISO/TC 97/SC 5 N595 as the Pascal Standard although 
N565 is a proposed standard and subject to further modification. 



STRUCTURE OF THIS MANUAL 

This manual is divided into the following major topics 
Chapter 1 is a summary of the language. 

Chapter 2 is a description of the basic units (lexical) of Pascal/VS 
Chapters 3 through 9 are a top-down presentation of the language. 
Chapter 10 describes the I/O procedures and functions. 
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Chapter 11 describes the predefined procedures and functions. 

Chapter 12 describes the compiler directives. 

Appendices provide supplemental information about Pascal/VS. 

PASCAL/VS SYNTAX DIAGRAMS 

The syntax of Pascal/VS will be described with the aid of syntax diagrams. These 
diagrams are essentially 'road maps'; by traversing the diagram in the direction of 
the arrows you can identify e\zery possible legal Pascal/VS program. 

Within the syntax diagram, the names of other diagrams are printed in lower case and 
surrounded by braces ('{}'). When you traverse the name of another diagram you can 
consider it a subroutine call (or more precisely a 'subdiagram call 1 ). The names of 
reserved words are always in lower case. Special symbols (i.e. semicolons, commas, 
operators etc ) appear as they appear in a Pascal/VS program. 

The diagram traversal starts at the upper left and completes with the arrow on the 
right. Every horizontal line has an arrowhead to show the direction of the trav- 
ersal on that line. The direction of traversal on the vertical lines can be deduced 

by looking at the horizontal lines to which it connects. Dashed lines (i.e. ' ') 

indicate constructs which are unique to Pascal/VS and are not found in standard 
Pascal . 

Identifiers may be classified according to how they are declared. For the sake of 
clarity, a reference in the syntax diagram for {id} is further specified with a one 
or two word description indicating how the identifier was declared. The form of the 
reference is ' (i d : descr i pt i on) ' . For example {id^type} references an identifier 
declared as a type; {i d '- f unct i on) references an identifier declared as a function 
name. 



REVIS I ON CODES 

The convention used in this document is that all changes in the current version from 
the previous edition are flagged with a vertical bar in the left margin. 

Extensions to Pascal are marked with a plus sign in the margin. 
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TNL SN204446 (31 December 81) to SH20-6168-1 



SUMMARY OF AMENDMENTS 



RELEASE 2.1 

The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.1. 

• A procedure (or function) at any nesting level may now be passed as a routine 
parameter. The previous restriction which required such procedures to be at the 
outermost nesting level of a module has been removed. 

• Two new options may be applied to files when they are opened 1 UCASE and NOCC. 

• Rules have been relaxed in passing fields of packed records by var to a routine. 

• The "STACK" and "HEAP" run time options have been added to control the amount at 
which the stack and heap are extended when an overflow occurs. 

• The syntax of a "structured constant" which contains non-simple constituents has 
been simplified. 



RELEASE 2.0 

The following is a list of the functional changes that were made to Pascal/VS for 
Release 2.0. 

• Pascal/VS now supports single precision floating point (32 bit) as well as dou- 
ble precision floating point (64 bit). 

• Files may be opened for updating with the UPDATE procedure. 

• Files may be opened for terminal input (TERMIN) and terminal output (TERMOUT) so 
that I/O may take place directly to the user's terminal without going through 
the DDNAME interface. 

• The MAIN directive permits you to define a procedure that may be invoked from a 
non-Pascal environment. A procedure that uses this directive is not reentrant. 

• The REENTRANT directive permits you to define a procedure that may be invoked 
from a non-Pascal environment. A procedure that uses this directive is reen- 
trant. 

• A new predefined type* STRINGPTR, has been added that permits you to allocate 
strings with the NEW procedure whose maximum size is not defined until the invo- 

cat li on of NEW . 

• A new parameter passing mechanism is provided that allows strings to be passed 
into a procedure or function without requiring you to specify the maximum size 
of the string on the formal parameter. 

• The maximum size of a string has been increased to 32767 characters. 

• The Pascal/VS compiler is now fully reentrant. 

• Code produced from the compiler will be reentrant if static storage is not modi- 
fied. 

• Pascal/VS programs may contain source lines up to 100 characters in length. 

• Files may be accessed based on relative record number (random access). 

• Run time errors may be intercepted by the user's program. 

• Run time diagnostics have been improved. 

• Pascal/VS will flag extensions when the option "LANGLVL (STD)" is used. 



Summary of Amendments 
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A mechanism has been provided so that Pascal/VS routines may be called from oth- 
er languages. 

All record formats acceptable to QSAM are now supported by the Pascal/VS I/O 
faci 1 i t i es. 

A procedure or function may now be exited by means of the goto statement. 

You may now declare an array variable where each element of the array is a file. 

You may define a file to be a field of a record structure. 

Files may now be allocated in the heap (as a dynamic variable) and accessed via a 

pointer. 

You may now define a subrange of INTEGER which is allocated to 3 bytes of 
storage. Control over signed or unsigned values is determined by the subrange. 

Variables may be declared in the outermost scope of a SEGMENT. These variables 
ar& defined to overlay the variables in the outermost scope of the main program. 

The PDSIN procedure opens a member of a library file (partitioned dataset) for 
input. 

The PDSOUT procedure opens a member of a library file (partitioned dataset) for 
output . 

A procedure or function that is declared as EXTERNAL may have its body defined 
later on in the same module. Such a routine becomes an entry point. 

The CPAGE percent(%) statement conditionally does a page eject if less than a 
specified number of lines remain on the current listing page. 

The MAXLENGTH function returns the maximum length that a string variable can 

assume . 

The %CHECK TRUNCATE option enables (or disables) the checking for truncation of 

str i ngs . 

The PASCALVS exec for invoking the compiler under CMS has been modified so that 
the specification of the operands allows greater flexability. 

New compiler options have been added, namely: LINECOUNT, PXREF, PAGEWIDTH, and 
LANGLVL. 

The catalogued procedures for invoking Pascal/VS in OS Batch have been simpli- 
fied. 

The format of the output listing has been modified so that longer source lines 
may be accomodated. 

Multiple debugger commands may be entered on single line by using a semicolon 
(;) as a separator. 

The format of the Pascal File Control Block has been modified. 

Support is now provided for ANSI and machine control characters on output files. 

Execution of a Pascal/VS program will terminate after a user determined number 
of non-fatal run time errors. 

The debugger now supports breakpoints at the end of a procedure or function. 

The Trace mode in the debugger provides information on when procedures are being 
ex i ted. 

The TRACE procedure now permits you to specify the file on which the traceback 
is to be wr i tten . 

The Equate command of the debugger has been enhanced. 

The debugger will print "uninitialized" when displaying a variable that has not 
been assi gned . 
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1.0 INTRODUCTION TO PASCAL/VS 



"The language Pascal was designed by 
Professor Niklaus Wirth to satisfy two 
principal aims: 

• to make available a language suit- 
able for teaching programming as a 
systematic discipline based on cer- 
tain fundamental concepts clearly 
and naturally reflected by the lan- 
guage. 

• to define a language whose implemen- 
tations could be both reliable and 
efficient on then available comput- 
ers. " 

(Pascal Draft Proposal ISO/TC 97/SC 5 
N595, January, 1981) 

Pascal/VS is an extension to standard 
Pascal. The purpose of extending Pascal 
is to facilitate application program- 
ming requirements. Among the extensions 
are such features as separately compi 1- 
able external routines, internal and 
external static data, and varying length 
character strings. 

Pascal Is of interest as a high level 

programming language for the following 

reasons 1 

1.1 PASCAL LANGUAGE SUMMARY 



It provides constructs for defining 
data structures in a clear manner. 

It is suitable for applying struc- 
tured programming techniques. 

The language is relatively 
machi ne-i n dependent . 

Its syntax and semantics allow 
extensive error diagnostics during 
compi lati on . 

A program written in the language 
can have extensive execution time 
checks. 

Its semantics allow efficient 
object code to be generated. 

Its syntax allows relatively easy 
compi lati on. 

The language is relatively well 
known and is growing in popularity. 



This section of the manual is meant to be a capsule summary of Pascal/VS. It should 
serve as a brief outline to the language. The details are explained in the remainder 
of this document. 



1.1.1 Syntax 



The syntax is described with an example-like format that summarizes the important 
features of the item. The following rules are the conventions used. 



I I 
C ] 



indicates that the item preceding this symbol may be repeated an 
arbitrary number of times. 

encloses items which are optional. 

denote the standard square brackets of Pascal. 



i tem-contma-list indicates that the item may be repeated, separating each occurrence 
wi th a comma . 



digit-list 

binary-digits 

hex-digits 

id 
label 

directive 



refers to a sequence of one or more digits ("0".."9"). 

refers to a sequence of one or more binary digits ("0" or "1"). 

refers to a sequence of one or more hexadecimal digits ("0".."9" or 
"A".."F"). 

refers to an identifier. 

refers to either art identifier or an integer number in the range 
0. .9999. 

refers to any one oft FORWARD, EXTERNAL, FORTRAN, MAIN, or 
REENTRANT. 
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field-list refers to the list of fields that compose the body of a record data 
type. 



1.1.2 Modules 



program 



SEGMENT 



is a self-contained and independently executable unit of code. 

program id I ( id-comma-list ) J. ; 
declarati on . . . 
compound-statement . 

is a shell in which procedures and functions may be separately com- 
pi led. 

SEGMENT id ; 

declarati on . . . . 



1.1.3 Declarat i ons 



label 



is used to declare a label in a program, procedure or function. 

label 

label-comma-list ; 



const 



type 



var 



declares an identifier that becomes synonymous with a compile time 
computable value. 

const 

id = constant-expression ; 
E. i d = constant-expression ; JL. . . 

declares an identifier which is a usei — defined data type. 

type 

id = data-type ; 
i. i d = data-type ; J.. . . 

declares a local variable. 



def 



var 

id-comma-list : data-type ; 
l_ id-comma-list : data-type ; 1-.. 

declares a variable which is defined in one module and may be refei — 
enced in other modules. 



ref 



static 



value 



def 

id-comma-list ' data-type ; 
£ id-comma-list ' data-type ; J.... 

declares a variable which is defined in another module. 

ref 

id-comma-list J data-type ; 
J. id-comma-list ' data-type ; JL • • 

declares a variable which persists for the entire execution of the 
program. 

static 

id-comma-list ' data-type ; 
£ id-comma-list : data-type ; JL . . 

assigns a value to a def or static variable at compile time. 

value 

variable : = constant-assignment-statement ; 
X variable : = constant-assignment-statement ; J.. . . 
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procedure 



function 



defines a unit of a module which may be invoked as a statement. 

procedure id i ( parameter £j parameter].. . . ) ! ; 

di recti ve ; 
or 
procedure id J. ( parameter £; parameter!... ) ! ' 

declarat i on . . . 

compound-statement ; 

defines a unit of a module which may be invoked and returns a value, 

function id X ( parameter £; parameter!- • • ) JL : id ; 

di recti ve ; 
or 
function id I. ( parameter C.; parameter!... ) ! : id ; 

declarat i on . . . 

compound-statement ; 



1.1,4 Data-Ty pes 



id 
enumeration 

subrange 

array 

record 



set 



file 



pointer 



is an identifier that was previously declared as a type, 
is a list of constants of a usei — defined scalar data type. 

( id-comma-list ) 
is a continuous range of a scalar type. 

J. packed ! constant .. constant-expression 
is a data structure composed of a list of homogeneous elements. 

C. packed ! array t data-type 3 of data-type 
is a data structure composed of a list of heterogeneous fields. 

I packed ! record 

C. id-comma-list ' data-type ; !• . . 

I case lid :! id of 

constant-comma-list s ( field-list ) ; 

JC. constant'-comma-l i st : C field-list ) ; !• . . ! 
end 

is a collection of zero or more scalar values. 

I packed ! set Of data-type 
is a sequence of data to be read or written by a Pascal program. 

file Of data-type 
is a reference to a variable that is created by the programmer. 

3> id 



1 .1.5 Parameters 



value 



var 



const 



designates a pass-by-value parameter. 

id-comma-list : id 
designates a pass-by-reference (read/write) parameter 

var id-comma-list • id 
designates a pass-by-reference (read-only) parameter. 

const id-comma-list ' id 
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procedure 



function 



is the mechanism whereby a procedure may be passed to the called 
procedure (function) and executed from there. 

procedure id t. ( parameter l_; parameter!... ) J. ; 

is the mechanism whereby a function may be passed to the called pro- 
cedure (function) and executed from there. 



function i d JL ( parameter J.; parameter! 



) 1 



id 



1.1.6 Statements 



Every statement may be preceded with one label 5 

J. label s 2 statement 
assert 



assignment 



case 



compound 



continue 



empty 
for 



goto 



if 



leave 



tests a condition that should be true and if not causes a runtime 
error to be produced. 

assert bool-expression 

assigns a value to a variable. 

variable s = expression 

causes any one of a list of statements to be executed based upon the 
value of an expression. 



case expression of 

l_ constant-comma-list : statement 

I otherwise 

statement i, ; statement JL- . . 1 
end 



3... 



is a series of statements enclosed within begin/end brackets. 

statement 1 . . . 



begin 

statement i. 
end 



resumes execution of the next iteration of the innermost loop. The 
termination condition is tested to determine if the loop should con- 
t i nue. 

continue 

contains no executable code. 

is a loop statement that modifies a control variable for each itei — 
ation of the loop. 

for variable == expression to expression do 
statement 

or 
for variable •- expression downto expression do 

statement 

changes the flow of your program. 

goto label 

causes one of two statements to be executed based on the evaluation 
of an expression. 

if bool-expression then 

statement 
I else 

statement J. 

terminates the execution of the innermost loop. Execution resumes 
as if the loop termination condition were true. 
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call 



repeat 



return 



while 



with 



leave 

invokes a procedure. At the conclusion of the procedure* execution 
continues at the next statement. 

id I ( expression-comma-list ) J. 

is a loop statement with the termination test occurring at the end 
of the loop. 

repeat 

statement £ ; statement j[. . . 
until bool-expressi on 

terminates the executing procedure (function) and returns control 
to the caller. 

return 

is a loop statement with the termination test occurring at the 
beginning of the loop. 

While bool-expressi on do 
statement 

permits complicated references to fields within a record to be 
treated as simple variables within a a statement. 

with variable-comma-list do 
statement 



1.1.7 Expressions 

An expression is composed of operands combined with operators. The operators have 
the following precedence* 

not operator (highest) 
multiplying operators 
adding operators 
relational operators (lowest) 



1. 1.8 Operands 



variable 



constant 



represents a unit of storage which may be referenced and altered. 

simple variable: id 

arrays variable C expression 1 

field: variable . id 

pointer: variable 3) 

represents a literal value. 



INTEGER 

REAL 

BOOLEAN 
CHAR 
stri ng 



array 
record 
set-constructor refers to an operand that describes the values of a set. 



di gi t-li st 

' hex-digits 'X 

f binary-digits f B 
digit-list . digit-list IE+/- digit-listl 

' hex-digits 'XR 
FALSE/TRUE 

EBCDIC character in single quotes 
EBCDIC characters in single quotes 

' hex-digits 'XC 
id ( expression |. : expression]. 

i. t expression i.: expression^. J.... 
id ( expression I, expression]... ) 



C expression I .. expression 2 

X * expression £ .. expression JL J.. . . 1 
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function-call refers to the invocation of a function. 

i d l_ ( expression-comma-list ) J. 
parenthesizsd-expression is used to override the normal precedence of operators 

( expression ) 

1.1.9 Special Symbols 



symbol 


meani ng 


+ 


addition and set union operator 


- 


subtraction and set difference operator 


X 


multiplication and set intersection operator 


/ 


division operator, REAL results only 


- 


BOOLEAN not, one's complement on INTEGER 




or set complement 


1 


BOOLEAN or, logical or on INTEGER 


£ 


BOOLEAN and, logical and on INTEGER 


£& 


BOOLEAN xor operator, logical xor on INTEGER 




and set exclusive union 


™ 


equality operator 


< 


less than operator 


< = 


less than or equal operator 


> = 


greater than or equal operator 


> 


greater than operator 


<> or - = 


not equal operator 


>> 


right logical shift on INTEGER 


<< 


left logical shift on INTEGER 


1 1 


catenation operator 


: = 


assignment symbol 


. 


period to end a module 


. 


field separator in a record 


r 


comma, used as a list separator 


'- 


colon, used to specify a definition 


r 


semicolon, used as a statement separator 


. . 


subrange notation 


f 


quote, used to begin and end string constants 


3) or -> 


pointer symbol 


( 


left parenthesis 


) 


right parenthesis 


I or (. 


left square bracket 


1 or .) 


right square bracket 


{ or (* 


comment left brace Cstandard) 


} or *) 


comment right brace (standard) 


/* 


comment left brace (alternate form) 


*■/ 


comment right brace (alternate form) 



1.1.10 Identifiers 

Identifiers are composed of the letters "a" through "z", the digits "0" through "9" 
and the special characters *'_" and "$". An identifier must begin with a letter or 
"$" and must be unique in the first 16 positions. There is no distinction between 
the an upper case letter and its lower case equivalent. 
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1.1.11 The Not Operator 



operator 


operat i on 


operands 


result 


- (not) 

- (not) 

- (not) 


boolean not 
logical one's 

complement 
complement 


BOOLEAN 
INTEGER 

set of T 


BOOLEAN 
INTEGER 

set of T 



1.1.12 Multiplying Operators 



operator 


operati on 


operands 




K 


mult i pli cat i on 


INTEGER 
SHORTREAL 
REAL 
mi xed 




/ 


real di vi si on 


INTEGER 
SHORTREAL 
REAL 
mi xed 




div 


i nteger di vi si on 


INTEGER 




mod 


modulo 


INTEGER 




& (and) 


boolean and 


BOOLEAN 




& (and) 


logi cal and 


INTEGER 




X 


set intersection 


set of t 




II 


string catenation 


STRING 




<< 


logical left shift 


INTEGER 




>> 


logical right 
shi ft 


INTEGER 





result 

INTEGER 

SHORTREAL 

REAL 

REAL 

REAL 

SHORTREAL 

REAL 

REAL 

INTEGER 

INTEGER 

BOOLEAN 

INTEGER 

set of t 

STRING 

INTEGER 

INTEGER 



1.1.13 Adding Operators 



operator 


operati on 


operands 


result 


+ 


addi t i on 


INTEGER 


INTEGER 






SHORTREAL 


SHORTREAL 






REAL 


REAL 






mi xed 


REAL 


+ 


set union 


set of t 


set of t 


- 


subtracti on 


INTEGER 


INTEGER 






SHORTREAL 


SHORTREAL 






REAL 


REAL 






mi xed 


REAL 


- 


set difference 


set of t 


set of t 


1 (or) 


boolean or 


BOOLEAN 


BOOLEAN 


1 (or) 


logical or 


INTEGER 


INTEGER 


&& (xor) 


boolean xor 


BOOLEAN 


BOOLEAN 


&& (xor) 


logical xor 


INTEGER 


INTEGER 


&& (xor) 


exclusive union 


set of t 


set of t 
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1.1.14 Relational Operators 



operator 


operati on 


operands 


result 


= 


compare equal 


any set, scalar 
or string 


, pointer 


BOOLEAN 


<> (-=) 


not equal 


any set, scalar 
or string 


, pointer 


BOOLEAN 


< 


less than 


scalar type or 


stri ng 


BOOLEAN 


< = 


compare < or = 


scalar type or 


stri ng 


BOOLEAN 


< = 


subset 


set Of t 




BOOLEAN 


> 


compare greater 


scalar type or 


stri ng 


BOOLEAN 


> = 


compare > or = 


scalar type or 


stri ng 


BOOLEAN 


> = 


superset 


set of t 




BOOLEAN 


in 


set membership 


t and set Of t 




BOOLEAN 



1.1.15 Reserved Words 



and 


end 


of 


space 


array 


file 


or 


static 


assert 


for 


otherwise 


then 


begin 


function 


packed 


to 


case 


goto 


procedure 


type 


const 


if 


program 


until 


continue 


in 


range 


value 


daf 


label 


record 


var 


di v 


leave 


ref 


whi le 


do 


mod 


repeat 


with 


downto 


nil 


return 


xor 


else 


not 


set 





1.1.16 Predefined Constants 



ALFALEN 

ALPHALEN 

FALSE 

MAXINT 

MI MINT 

TRUE 



length of type ALFA, value is 8 
length of type ALPHA, value is 16 
constant of type BOOLEAN, FALSE < TRUE 
maximum value of type INTEGER: 2147483647 
minimum value of type INTEGER". -2147483648 
constant of type BOOLEAN, TRUE > FALSE 



1.1.17 Predefined Types 



ALFA 

ALPHA 

BOOLEAN 

CHAR 

INTEGER 

REAL 



packed arrayC 1.. ALFALEN ] of CHAR 

packed arrayC 1.. ALPHALEN ] of CHAR 

data type composed of the values FALSE and TRUE 

character data type 

integer data type 

floating point represented in a 64 bit value 
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SHORTREAL floating point represented in a 32 bit value 

STRINGPTR is a predefined type that points to a STRING whose maximum length is 
determined when the STRING is allocated with NEW 

TEXT file of CHAR 



1.1.18 Predefined Variables 

INPUT default input file 

OUTPUT default output file 

1.1.19 Predefined Functions 

The following symbols represent parameters in the descriptions 

of the predefined functions and procedures. 

a = an array variable 

f = a file var i able 

n = a positive integer expression 

P = pointer valued variable 

s = a string expression 

v = a variable 

x = any arthimetic expression 

ABS(X) computes the absolute value "x" 

ARCTAN(X) returns the arctangent of "x" 

CHR(n) returns the EBCDIC character whose ordinal value is "n" 

CLOCK returns the number of micro-seconds of execution 

COLStf ) returns current column of file "f" 

COflPRESS(s) replaces multiple blanks in "s" with one blank 

COS(X) returns the cosine of "x" 

DELETE(S>nl>n2) returns "s" with characters "nl" through "n2" removed 

EOF(f) tests file "f" for end-of-file condition 

EOLN(f) tests file "f" for end-of-line condition 

EXP(x) computes the base of the natural log (e) raised to to the power "x" 

FLOAT(n) converts "n" to a floating point value 

HBOUKD(aC.»nl) determines the upper bound of array "a" 

HIGHEST(x) determines the maximum value the type of a scalar "x" 

INDEX(sl>s2) returns the location, if present, of "s2" in "si" 

LBOUND(a.C »n3.) determines the lower bound of array "a" 

LENGTH(s) determines the current length of string "s" 

LN(x) returns the natural logarithm of the "x" 

LOMEST(x) determines the minimum value the type of a scalar "x" 

LTRIM(S) returns "s" with leading blanks removed 

MAXCx_[.fXJ_. . . ) determines the maximum value of a list of scalar expressions 

MAXLENGTH(s) determines the maximum length of string "s" 
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MIN(X.C.rX].. . . ) determines the minimum value of a list of scalar expressions 

ODD(n) returns TRUE if integer "n" is odd 

ORD(X) converts a scalar value "x" to an integer 

PARMS returns the system dependent invocation parameters 

PRED(X) obtains the predecessor of scalar expression "x" 

RANDOFKn) returns a pseudo-random number, "n" is the seed value or zero 

ROUND(x) converts a floating point value to an integer value by rounding 

SIN(x') returns the sine of "x" 

SIZEQFtx) determines the memory size of a variable or type 

SQRT(x) returns the square root of "x" 

SQRlxJ returns the square of "x" 

STR(a) converts array of characters "a" to a string 

SUBSTR(S,nl,n2) returns the substring of "s" from "nl" to "n2" 

SUCC(x) obtains the successor of scalar "x" 

TRIM(s) returns "s" with trailing blanks removed 

TRUNC(X) converts floating point expression "x" to an integer by truncating 

1,1,20 Predefined Procedure s 

CLOSElf) closes a file 

DATETIMEtal,a2) returns the current date in "al" and time of day in "a2" 

DISPOSE(p) deallocates a dynamic variable 

GET(fJ advances file pointer to the next element of input file "f™ 

HALT halts the programs execution 

MARKtp) creates a new heap, "p" designates the heap 

NEU(p, X.»X].. . . ) allocates a dynamic variable from the most recent heap 

PACK(al>X»a2) copies array "al" starting at index "n" to packed array "a2" 

PAGEHf )1 skips to the top of the next page 

PDSINCf»s) opens file "f" for input, "s" designates the open options which must 
specify the member name 

PDS0UT(f»s) opens file "f" for output, "s" designates the open options which 
must specify the member name 

PUT(f ) advances the file pointer to the next element of output file "f" 

READ( C/f »Ivi»Vl. . . ) reads data from file "f" into variable "v" 

READLNtCf »Jv£,vl. , , ) reads variable "v" and then skips to end-of-line of TEXT file 

M-CTf 

READSTR(S»VJ.» vJL . . ) reads data from string "s" into variable "v" 

RELEASE(p) destroys one or more heaps, "p" designates the last heap to be 
destroyed 

RESET (f£>sj[) opens file "f" for input, "s" designates the optional open options 
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RETCODEfn) sets the system return code 

REWRITEtf C.»Sl) opens file "f" for outputs "s" designates the optional open options 

SEEK(f,n) modifies the current position of file "f so that next GET (or PUT) 
reads (or writes) record number "n", where record 1 is the first 
record of the file 

TERMINCf|.»s2) opens file "f"for input from the users terminal, "s" designates the 
optional open options 

TERMOUT(f.C >Sjn opens file "f"for output from the users terminal, "s" designates the 
optional open options 

TOKENCSiV) extracts tokens from string "s" updating starting position "v" 

TRACE(f J writes the procedure and function invocation history to file "f" 

UNPACK(cll,a2,n ) copies packed array "al" to array "a2" beginning at index "n" 

UPDATE(fI,sl) opens file "f" for update, a PUT immediately following a GET of a 
record of the file replaces that record, "s" designates the optional 
open options 

URITEHf, lxl, xl. .. ) writes the value of "x" to file "f" 

t4RITEL.Nt.Cf *±xt_> Xl. .. ) writes the value of "x" and then writes an end-of-line to TEXT 

file "f" 

WRITESTR(s,Xl,Xl... ) writes the value of "x" to string "s" 

1.1.21 X include Statumsnts 

5SCHECK enables or disables execution time checking features. 

JSCPAGE n skips to the next page if less than "n" lines remain on the current 
page 

^INCLUDE includes source code from a library. 

5JLIST ON/OFF enables or disables the pseudo-assembler listing. 

^MARGINS n m resets the left margin of the source program to "n" and the right 
margin to "m M . 

/{PAGE forces the source listing to start on a new page. 

SPRINT ON/OFF enables or disables the source listing. 

%SKIP n inserts "n" blank lines into the source listing. 

JJTITLE specifies a title for the listing. 
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2.0 THE BASE VOCABULARY 



2.1 IDENTIFIERS 



Syntax 



id: 



-Xletter}- 



->{digit>- 
-Xletter}- 



-> (under score}- 



■>n 

-> 

■> 



where 1 

(letter) is '/ 
{digit} is '0' 
underscore i s 



or 



Identifiers are names given to vari- 
ables, data types, procedures, func- 
tions, named constants and modules. 



external routines. You must make sure 
that identifiers used as external names 
are unique in the first 8 characters. 



correct : 



i ncorrect ' 



I 

K9 

New_York 

AMOUNTS 



5K 

NEW JERSEY 



Valid and Invalid Identifiers 



Pascal/VS permits identifiers of up to 
16 characters in length. You may use 
longer names but Pascal/VS will ignore 
the portion of the name longer than 16 
characters. You must assure identifiers 
are unique within the first 16 
posi t i on s. 

There is no distinction between lower 
and upper case letters within an identi- 
fier name. For example, the names 
'ALPHA*, 'alpha', and 'Alpha' are equiv- 
alent . 

There is an implementation restrictions 
on the naming of external variables and 



2.2 LEXICAL SCOPE OF IDENTIFIERS 



The area of the module where a partic- 
ular identifier can be referenced is 
called the lexical scope of the identi- 
fier (or simply scope). 

In general, scopes are dependent on the 
structure of routine declarations. 
Since routines may be nested within oth- 
er routines, a lexical level is associ- 
ated with each routine. In addition, 
record definitions define a lexical 
scope for the fields of the record. 
Within a lexical level, each identifier 
can be defined only once. A program 
module is at level 0, routines defined 
within the module are at level 1; in 
general, a routine defined in level i 
would be at level (i+1). The following 
diagram illustrates a nesting 
structure. 
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program M (level 0) 



procedure A (level 1) 



procedure B (level 2) 



type 



R = 
record 

Rl: . . . 
R2: . . , 
end; 



function C 

(level 3) 



procedure D (level 2) 



function X (1 


evel 


1) 






procedure 


Y 


(1 


evel 


2) 
















procedure 


Z 


(1 


evel 


2) 

















The scope of an identifier is the entire 
routine (or module) in which it was 
declared; this includes all routines 
defined within the routine. The follow- 
ing table references the preceding dia- 
gram. 



i denti f i ers 




declared in: 


are accessible in : 


Module M 


M,A,B,C,D,X,Y,Z 


procedure A 


A,B,C,D 


procedure B 


B,C 


type R 


B,C 


function C 


C 


procedure D 


D 


function X 


X,Y,Z 


procedure Y 


Y 


procedure Z 


Z 



If an identifier is declared in a rou- 
tine which is nested in the scope of 
another identifier with the same name/ 
then the new identifier will be the one 
recognised when its name appears in the 
routine. The first identifier becomes 
inaccessible in the routine. In other 
words* the identifier declared at the 
inner most level is the one accessible. 

The scope of a field identifier defined 
within a record definition is limited to 
the record itself. The scope of a 
record may be accessed by either field 
referencing (see "Field Referencing" on 
page 68) or with the wi th-statement (see 
"The With Statement" on page 100). 

The Pascal/VS compiler effectively 
inserts a prelude of declarations at the 
beginning of every module it compiles. 
These declarations consist of the prede- 
fined types, constants, and routines. 
The scope of the prelude encompasses the 
entire module. You may re-declare any 
identifier that is predefined if you 
would like to use the name for another 
purpose . 
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2.3 RESERVED HORDS 









Reserve 


d Words 








and 




end 






Of 




+ 


space 


array 




file 






or 




+ 


static 


+ assert 




for 






+ otherwise 






then 


begin 




function 






packed 






to 


case 




goto 






procedure 






type 


const 




if 






program 






until 


+ continue 




in 






+ range 




+ 


value 


+ def 




label 






record 






var 


div 




+ leave 






+ ref 






whi le 


do 




rcod 






repeat 






with 


downto 




nil 






+ return 




+ 


xor 


else 




not 






set 








note : those 


words 


marked by '+* 


are 


not 


reserved in 


standar 


d 


Pascal 



Pascal/VS reserves the identifiers 
shown above for expressing the syntax of 
the language. These reserved words may 
never be declared by you. Reserved 
words must be separated from other 
reserved words and identifiers by a spe- 



cial symbol, a comment, or at least one 
blank. 

A lower case letter is treated as equiv- 
alent to the corresponding upper case 
letter in a reserved word. 
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2.4 SPECIAL SYMBOLS 



Special Symbols 


symbol 


meani ng 


+ 

/ 


addition and set union operator 
subtraction and set difference operator 
multiplication and set intersection operator 
division operator, REAL result only 




1 


BOOLEAN not, one's complement on INTEGER or set 
BOOLEAN or, logical or on INTEGER 
BOOLEAN and, logical and on INTEGER 
BOOLEAN xor operator, logical xor on INTEGER 
and set exclusive union 


complement 


II 
f 

O 

II II A 
II V V A A V 


equality operator 

less than operator 

less than or equal operator 

greater than or equal operator 

greater than operator 

not equal operator 




>> 
<< 

II 


right logical shift on INTEGER 
left logical shift on INTEGER 
catenation operator 




t 


assignment symbol 
period to end a module 
field separator in a record 
comma, used as a list separator 




» 
f 

C or -> 


colon, used to specify a definition 
semicolon, used as a statement separator 
subrange notation 

quote, used to begin and end string constants 
pointer symbol 




( 

) 

C or (. 

3 or . ) 


left parenthesis 
right parenthesis 
left square bracket 
right square bracket 




{ or (* 
} or *) 
/* 


comment left brace (standard) 
comment right brace (standard) 
comment left brace (alternate form) 
comment right brace (alternate form) 





Special symbols used by Pascal/VS are 
listed above. Several special symbols 
may also be written as a reserved word. 
These symbols are shown in the following 
table. 



S ymbol 



Reserved Word 



I 

& 
&& 



not 
or 
and 
xor 
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2.5 COMMENTS 



Pascal/VS supports two forms of 
comments'- f { ... } f and '/*...*/'. The 
curved braces are the standard comment 
symbol in Pascal. The symbols '(*' and 
'*)' are considered by the compiler to 
identical to left and right braces. The 
form of comment using '/*' and **/* is 
considered to be distinct from the form 
usi ng braces. 

When the compi ler encounters the symbol 
' {'* it will bypass all characters* 
including end-of-line, until the symbol 
'}' is encountered. Likewise* all 
characters following '/*' will be 
bypassed until the symbol '*/' is detec- 
ted. As a result* either form may be 
used to enclose the other; for example 
/*...{.,..}...*/ is one comment. One use 
of these two forms of comments is to use 



one for ordinary comments and use the 
other to block out temporary sections of 
code : a '/*...*/* comment could be used 
to indicate a temporary piece of code* 
or perhaps debugging statements. 

A comment may be placed anywhere in a 
module where a blank would be 
acceptable. 



/* 

If A = 10 then { this statement is 
for program 
debuggi ng } 
WRITECA IS EQUAL TO TEN'); 

*/ 

Example of a nested Comment 
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2.6 CONSTANTS 



Syntax '• 



unsi gned-i nteger • 

-Xdigit}- 



T<- 



> ' 1 Xbinary digit) 

■ > ' 1 > (hex-digit) 1 

real -number ■ 



> 



B >- 

>j 



1 






■Xhex-digit) T > »XR 



J" 



■>-i 



T7- 



-Xdigit}- 



IT 



-Xdigit}- 



■> E 



-> + 
> - 



T^ 



-Xdigit}- 



-> J 



unsi gned-number 



-Xunsigned-integer}- 
-> {real -number) 



:>i 



str i ng' 



-> « 






-> ' 



(character)<- 



•>-> 



unsigned-constant- 

— > {unsi gned-number}- 
— > {stri ng} 



-> {i d : constant}- 
-> nil 



-> 

->H 
-> 



constant 



> {unsi gned-constant) 

-i > + 1 > {unsi gned-number}- 

I > _ >J 



->r 



where: 

(binary-digit} is '0' or '1'. 

(digit) is '0' through '9'; 

(hex-digit) is '0' through '9* and 'A' through 'F* 

(character) is any EBCDIC character. 



Constants can be divided into several 
categories according to the predefined 
type to which they belong. An unsigned 
number will conform to either a REAL or 
an INTEGER. Strings will conform to the 
type STRING or packed array[l..n3 Of 
CHAR. In addition, if the string is one 
character in length, it will conform to 
the type CHAR. 



If a single quote is to be used within a 
string, then the quote must be written 
twice. Lower case and upper ose let- 
ters are distinct within string con- 
stants. String literals are not 
permitted to extend past the end of line 
of a source line. Longer strings can be 
formed by catenating shorter strings. 
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+ even number of digits within a hexadeci- 
+ mal string constant; that is, you must 
+ specify each character fully that is to 
+ be in the string. 
Nil i s of a special type which will con- 
form to any pointer type. It represents The symbol 'E' or *e' when used in a 
a unique pointer value which is not a real-number expresses 'ten to the power 
valid address. of. 

The constants TRUE and FALSE are prede- + Pascal/VS permits constant expression s 

fined in the language and are of the + in places where the Pascal standard only 

standard type BOOLEAN. + permits constants. Constant expres- 

+ sions are evaluated and replaced by a 

+ Integer hexadecimal constants are + single result at compile time. See 

+ enclosed in quotes and suffixed with an + "Constant Expressions" on page 76 for a 

+ 'X' or f x'. Integer binary constants + description of constant expressions. 
+ are enclosed in quotes and suffixed with 

+ a 'B* or 'b'. — - — 

+ 

+ Hexadecimal constants may be used in any constant matches standard type 

+ context where an integer constant is INTEGER 

+ appropriate. If you do not specify 8 -500 INTEGER 

+ hexadecimal digits (i.e. 4 bytes), Pas - 1.0 REAL 

+ cal/VS assumes that the digits not sup- 314159E-5 REAL 

+ plied are zeros on the left. For 0E0 REAL 

+ example, 'F'x is the value 15. 1.0E10 REAL 

+ TRUE BOOLEAN 

+ Floating point hexadecimal constants 'FF'X INTEGER 

+ are enclosed in quotes and suffixed with 'A' CHAR 

+ an 'XR' or 'xr'. Such constants may be 'ABC 1 STRING 

+ used in any context where a real con- 'ClC2C2'xc STRING 

+ stant is appropriate. If you do not ' 4E800000FFFFFFFF'xr REAL 

+ specify 16 hexadecimal digits (i.e. 8 'abc' STRING 

+ bytes), Pascal/VS assumes that the dig- '' STRING 

+ its not supplied are zeros on the right. »»»i CHAR 

+ For example, '4110'xr is the same as ' ' CHAR 

+ '411000000000000'xr. ' ' STRING 

+ 'Thats' 's all ' STRING 

+ String hexadecimal constants are 

+ enclosed in quotes and suffixed with an Examples of Constants 

+ *XC or 'xc'. Such constants may be 

+ used in any context where a string con - 

+ stant is appropriate. There must be an 
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2.7 STRUCTURED CONSTANTS 



Syntax 5 



structured-constant ♦ 

j > (record-structure) 

' > {array- structure} >- 



! i::;r 



> 



record-structure' 
Xid^type) > ( 



1 1 > {constant-expr} 1 1 > ) > 



L< 



-> iconstant-expr? i r 



■ i 



array-structure^ 



._> ( > 



:] 



> {id^ type) 

< 

1 1 1 > {constant-expr) 1 > 

, L 

L< , < 



(repetition} 1 1 1 > ) > 



— > 



> j i 

i 



repet i t i on '• 

> {constant-expr} 

note 1 must evaluate to positive integer. 



> 



Structured constants are constants 
which are of a structured type. The 
type of the constant is determined by 
the type identifier which is used in its 
definition. These constants may be used 
in constant declarations, value decla- 
rations or in executable statements. 

There are two kinds of structured con- 
stants: one is used for arrays and the 
second is used to specify records. 

Array constants are specified by a list 
of constant expressions where each 
expression defines one element of the 
array. See "Constant Expressions" on 
page 76 for a description 
of constant expressions. You may omit 
an element of the array within the list 
in which case the value of that element 
is not defined. Elements may be omitted 
at the end of the array in which case 
the value of those elements are also not 
defined. You may follow the constant 
expression with a colon and a repetition 
expression; this is used to specify that 
the first constant expression is to be 
repeated. 



The second kind of structured constant 
is used to specify records. Record con- 
stants are specified by a list of con- 
stant expressions where each expression 
defines one field of the record in the 
order declared. You may omit a field of 
the record within the list by specifying 
nothing between two commas, in which 
case the value of that field is not 
def i ned. 

Values within the list may correspond to 
fields of a record's variant part. In 
order for the compiler to know which 
variant is being referenced, the tag 
field value must be specified immediate- 
ly prior to those values which arQ to be 
assigned to the variant fields. (See the 
examples below.) The tag field must be 
specified even if it does not exist as a 
field. (This occurs when only a tag type 
i s speci f i ed. ) x 

The type identifier that begins a struc- 
tured constant may be omitted if the 
structured constant is imbedded within 
another structured constant. This sim- 
plifies the syntax for structured con- 
stants which are multidimensional 



If the tag field is a "refei — back" type (see "Variant Part" on page 45) then 
it will need to be specified twice in the 1 i st : once to be assigned a value, 
and again to identify the variant being referenced. 
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3,0 STRUCTURE OF A MODULE 



Syntax J 



module' 

1 > {program-module} r 

l > {segment-module} >-" 

program-module- 

> program >{id} — 



> ( 



>{id}- 



L< f < 



> ) 



1 



•>i 



r<- 
-<• 



■> (declarati on}- 



3 



-> { compound- statement }■ 



declarati on ' 



•Xlabel-dcl}- 



-> {constant-del}- 

-> {type-del} 

-> {vai — del} 



>{def-dcl} 

>{static-dcl} 

>{ value- del} 

> {routine-del} — 

segment -module 1 
> SEGMENT >{id} > ; >- 



->- 
->- 
■>- 
->- 

■>- 
■> 
■>4 
-> 



r<- 



> {constant- del} >- 

> {type-del} >•{ 

>{vai — del} >- 

>{def-dcl} > 

f- > {static-del} — M 

> {value- del} > 

>{routine-dcl} > J 

l > m 



A module is an independently compilable 
unit of code. There are tuo types of 
modules in Pascal/VS^ the program module 
and the segment module. 



The program is the module which gains 
initial control when the compiled pro- 
gram is invoked from the system loader. 
It is effectively a procedure that the 
loader invokes. The body of a program 
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module is identical to the body of a 
procedure. 

+ A segment module may be compiled as a 

+ unit independent of the program module. 

+ It consists of routines that are to be 

+ linked into the final program prior to 

+ execution. Data is passed to routines 

+ through parameters and external vari- 

+ ables. Segments are useful in breaking 

+ up large Pascal/VS programs into smaller 

+ uni t s. 

The global automatic variables of the 
program module may be accessed in a seg- 
ment module. See "The Var Declaration" 
on page 26 for an explanation. 

The identifier following the reserved 
word "program" must be a unique external 
name. The identifier following the word 
"SEGMENT" may be the same as one of the 
EXTERNAL routines in the segment or may 
be a unique external name. Thus* a 
function called SIN could be in a seg- 
ment called SIN. An external name is an 
identifier for a program, segment, def 
or ref variable, EXTERNAL routine, MAIN 
procedure or a REENTRANT procedure. 



The optional 
the program 
Pascal/VS. 
i gnored. 



identifier list following 

identifier is not used by 

The identifiers will be 



A program is formed by linking a program 
module with segment modules (if any) and 
with the Pascal/VS execution library and 
libraries that you may supply. 

+ Pascal/VS allows declarations to be giv- 

+ en in any order. This is an extension 

+ to Pascal and is provided primarily to 

+ permit source that is INCLUDEd during 

+ compilation to be independent of any 

+ ordering already established in the mod- 

+ ule. The standard ordering for 

+ declarations is shown in the diagram for 

+ declarations. (For a description of the 

+ INCLUDE facility see "The ^INCLUDE 

+ Statement" on page 146.) 

Every identifier must be predefined or 
declared by you before it is used. 
There is one exception to this rule" a 
definition of a pointer may refer to an 
identifier before it is declared. The 
identifier must be declared later or a 
compi le-t ime' diagnostic will be 
produced. 



Pascal/VS program 



















muuuies 


1 












1 








program-module 




segment modules 
















































1 1 












executi on- 1 i bra ry 







































program EXAMPLE; 
var 

I •• INTEGER; 
begin 

for i:=o to 1000 do 
if I mod 7=0 then 
WRITELN( 1:5, 

' IS DIVISIBLE BY SEVEN') 
end. 

Example of a Program Module 



REAL; EXTERNAL; 



SEGMENT COSINE; 
function COSINE 

(X : REAL ) 
function COSINE; 
var S- REAL; 
begin 

S := SIN(X); 

COSINE := SQRTU.O - S*S) 
end; . 

Example of a Segment Module 
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4 . PASCAL/VS DECLARATIONS 



Pascal/VS provides you with 10 types of 
declarat i ons ; 

• label 

• const 

• type 

• var 



4.1 THE LABEL DECLARATION 



+ 


• 


def 


+ 






+ 


• 


ref 


+ 






+ 


• 


stat i c 


+ 






+ 


• 


value 




• 


procedure 




• 


f unct i on 



Syntax • 








label-del : 






— > 


•? xatjQx ■■■ 1 "v uaoeii 


_J " ' 


" < - m ■ t ^ 




label : 








i > {uns i gned ■ i nteger 3 

L Xid) 


->J 






Note*- the values of the unsigned integer must be in the subrange 0. 


.9999. 





A label declaration is used to declare 

labels which will appear in the routine — — ■ — — 

and will be referenced by a goto state- 
ment within the routine. All labels label 
defined within a routine must be 10, 
declared in a label declaration within Label_A, 
the rout i ne. 1 , 

2, 

A label <ay be either an unsigned inte- Error_exit; 
ger or an identifier. If the value is 

an unsigned integer it must be in the A Label Declaration 

range to 9999. ~— — — 
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* . 2 THE CONST DECLARATION 



Syntax^ 


constant-del : 




..*» f i #-11 










> cons* 




> l 1 C1J 




> icon stan t "expr J 


^ > 















A constant declaration allows you to 
+ assign identifiers that are to be used 
+ as synonyms for constant expressions. 

The type of a constant identifier is 

determined by the type of the expression 

in the declaration. 



const 






BLANK 


s 


1 T • 

> 


BLANKS 


z 


1 f . 


FIFTY 


— 


50; 


A 


- 


FIFTY; 


B 


- 


FIFTY * 10/(3+2); 


C SQUARED 


— 


A*A + B*B; 


ORD OF A 


- 


ORD('A'); 


PI 


— 


3.14159265358; 


MASK 


- 


'8000'X I '0400'X; 


ALFALEN 


= 


8; 


ALPHALEN 


= 


16; 


LETTERS 


= 


C 'A f . . 'Z f , T a f . .'z f ] 


MAXREAL 


= 


'7FFFFFFFFFFFFFFF'xr; 


Constant Declarations 
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4.3 THE TYPE DECLARATION 



Syntax^ 














type-del : 
> type - 




->{id>— 


— > = - 


— >{type> — 






L 


? * 













A type declaration allows you to define — ■ 

a data type and associate a name to that 
type. Once declared, such a name may be type 
used in the same way as a predefined 

type name. { all of the following types } 

{ are predefined in Pascal/VS } 

INTEGER = MININT. .MAXINT; 

BOOLEAN = (FALSE, TRUE); 

ALFA = packed arrayCl. .ALFALEN] 

of CHAR; 
ALPHA = packed arrayCl . . ALPHALEN3 

Of CHAR; 
TEXT = file Of CHAR; 

Type Declarations 
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<♦.* THE VAR DECLARATION 



Syntax 1 


vai — del : 






\ r: ji 




Xtype} — 






— > var """■ 




U 


> L 1 CI J 


' * 


' > 




, 















The var declaration is used to declare 
automatic v a riables. Automatic vari- 
ables are allocated when the routine is 
invoked, and are de-allocated when the 
corresponding return is made. If the 
routine is invoked a second time, before 
an initial invocation completes (a 
recursive call), the local automatic 
variables will be allocated again in a 
stack-like manner. The variables allo- 
cated for the first invocation become 
inaccessible until the recursive call 
completes. 

Commas are used in the declaration to 
separate two or more identifiers that 
are being declared of the same type. 
This is a shorthand notation for two 
separate declarations. 



var 

I : INTEGER; 
SYS IN : TEXT; 
X, 
Y, 

Z : REAL; 
CARD : 
record 

RANK : 1..13; 

SUIT : (SPADE, HEART, DIAMOND, CLUB) 
end; 

Example of a Var Declaration 



Variables which are to be accessed 
across modules should be declared as dsf 
variables (see "The Def/Ref 
Declaration" on page 28), but if 
reentrancy is required, then a mechanism 
is required that does not rely on static 
storage. 



The global automatic variables of the 
main program 1 may be accessed from a 
segment module. The storage for auto- 
matic variables declared in the outei — 
most level of a segment are mapped 
directly on top of the main program 
global variables. Therefore, to access 
the main program globals, a segment mod- 
ule must have an identical copy of the 
main program's variable declarations. 
This mechanism is not as safe 2 and as 
convenient as using def variables. 

If the variables of the main program are 
to be accessable across modules then the 
%INCLUDE facility should be used so that 
identical copies of the variable's dec- 
larations can be included in all 
modules. (See "The ^INCLUDE Statement" 
on page 146 ) . 



program MAIN; 
var 

I : INTEGER; 

X, 

Y : REAL; 

J : INTEGER; 

... (remainder of program module} 

SEGMENT SEG; 
var 

I : INTEGER; 

X, 

Y : REAL; 

J : INTEGER; 

... (remainder of segment module} 

Example of a Var Declarations 
Shared between Programs and Segments 



That is, those variables declared with the var construct in the outermost 
nesting level of the main program. 

That is, unpredictable errors can occur when the variables declared in a 
segment do n<5t match those in the associated main program. The compiler has 
no way of checking the integrity. 
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4.5 THE STATIC DECLARATION 



Syntax ' 


stat i c-dcl : 
> static - 


1 
1 


-i<::! c ; d l:::j— > : 


Xtype) > ; - 






i 

I 











The static declaration is used to 
declare static variables. The variables 
declared in this way are allocated prior 
to program execution and exist for the 
life of the program's execution. 

Static variables can be referenced 
according to the lexical scoping rules. 
Two static variables in different scopes 
are different variables even though they 
have the same name. 

Data in static variables that are local 
to a routine will be preserved over sep- 
arate invocations of the routine. Such 
a routine called recursively will access 
the same instance of each static vari- 
able. 



+ Static variables may be initialised at 
+ compile-time by the use of a value dec- 
+ laration. 
+ 

Programs which modify static variables 

are not reentrant. 



static 

SYSPRINT 
X,Y: 



TEXT; 
REAL; 



Example of a Static Declaration 
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+ 4,6 THE DEF/REF DECLARATION 
+ 

+ 



Syntax : 


def-dcl: 

> def • 

L > re f . 








-Xid) j > : 

> 


>{type> > ; - 






...>j 


1 
i 


L<- 


1 
i 

._ i 













+ 

+ The def/ref declarations are used to + same storage; however, the variables X 

+ declare external variables. External + declared in segment P and procedure D 

+ variables are allocated prior to exe- + each refer to storage that is separate 

+ cution and can be accessed from more + from the external variable X. 

+ than one module. All identifiers that + 

+ are to be used as external names must be + Def variables may be initialized at com- 

+ unique in the first eight characters. + pile-time by the use of a value declara- 

+ + t i on . 

+ If an external variable with a partic- + 

+ ular name is declared in several I Programs which modify def, ref, or stat- 

+ modules, a single common storage | ic variables are not reentrant. 

+ location will be associated with each 

+ such variable. An external variable + 

+ must be declared with identical types in + 

+ each module; the programmer is responsi- + SEGMENT M; 

+ ble for assuring that the types are the + procedure A; 

+ same. + def X: REAL; { same as X in B } 

+ + begin 

+ The def declaration specifies that the + ... 

+ program loader is responsible for genet — + end; 

+ ating the common storage for the vari- + 

+ able. The ref declaration specifies + procedure B; 

+ that storage for the variable is defined + daf X : REAL; C same as X in A } 

+ in another module (or in the runtime + begin 

+ environment). Ref declared variables + ... 

+ will remain unresolved until the encom- + end;. 

+ passing module is compiled and linked + 

+ with a module in which the variable is + 

+ declared as a def variable or defined in + SEGMENT P; 

+ a non-Pascal CSECT or in an assembly + Static X: REAL;{ local to P } 

+ language COM. The expected use of ref + procedure C; 

+ variables is to access external data + 

+ declared in non-Pascal/VS programs such + ref X: REAL; { same as X in A,B} 

+ as those written in assembly language. + begin 

+ + 

+ A def or ref variable may be declared + end; 

+ local to a routine; the same scope rules + 

+ apply as for any other declared identi- + procedure D; 

+ fier. However, if the name of the vari- + var X : REAL; { local to D } 

+ able is declared in another scope (even + begin 

+ in another module) as a def or ref vari- + ... 

+ able, both occurrences of the variable + end;. 

+ will reference the same storage. + 

+ + Examples of Def and Ref Declarations 

+ In the following example, the variable X + 

+ in procedures A, B, and C references the + 
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4.7 THE VALUE DECLARATION 



Syntax 1 



value-del : 
> value 



-■I (value-assi gnment} > ; 1 > 



value-assi gnment : 



>{variable> > : = 1 Xconstant-Qxpression} r 

!structured~constant} > J 



L___ >{ , 



r > 



note : If the variable contains subscripts, the subscripts are limited 
to constant expressions. 



The value declaration is used to specify 
an initial value for static and def vai — 
iables. The declaration is composed of 
a list of value-assignment statements 
separated by semicolons. The assignment 
statements in a value declaration are of 
the same form as the assignment state- 
ments in the body of a routine except 
that all subscripts and expressions must 
be able to be evaluated at compile time. 



type 

COMPLEX = record 

RE,IM: REAL 
end; 
VECTOR = array[1..73 of INTEGER; 

static 

C: COMPLEX; 
V: VECTOR; 
Vl: VECTOR; 

def 

I : INTEGER; 

Q : array[l. .10] of COMPLEX; 

{ the following assignments will } 
{ take place at compile time } 
value 

C := C0MPLEXC3. 0,4.0); 

V := VECTOR(1,0:5,7); 

VI := VECTORC, , ,4); 
VC23 := 2; 

VC3] := 3*4-1; 

I := 0; 

QC13.RE ••= 3.1415926 / 2; 

QC1] .IM := 1.414; 

Example of a Value Declaration 



If a def variable is initialized with a 
value declaration in one module, you may 
not use a value declaration on that var- 
iable in another module. The compiler 
will not check this violation, however a 
diagnostic will be generated when you 
combine the modules into a single load 
module by the system loader. 



type 

CUBE = 



static 

BLOCK 



arrayCl . . 10 
of REAL; 



•• CUBE'- 



10,1. .103 



{ the following assignments will } 
{ take place at compile time } 
value 

BLOCK := 

cubec ( co.oaomo )U0 ); 

Example of Intializing 
a 3 Dimensional Array 
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5.0 TYPES 



Syntax 



type? 



■> {i d' type) — 

-> {enumerated-scalai — type)- 
■> {subrange-scalar-type} — 
-> {array-type} 



•> { record- type} ■ 
■>{ set- type} 



->{f i le-type}- 



•>{poi ntei — type}- 



->- 

->- 

->- 

->- 

-> 

-> 

-> 



A data type determines the kind of val- 
ues that a variable of that type can 
assume. Pascal/VS allows you to define 
new data types with the type 
declaration. The data type mechanism is 
a very important part of Pascal/VS. 
With it you can describe your data with 
great clarity. 

There are several mechanisms that can be 
used to define a type; each mechanism 
allows the new data type to have certain 
properties. All data types can be clas- 
sified as either scalar, pointer, or 
structured. 

You define the data type of a variable 
when the variable is declared. A previ- 
ous type declaration allows an identifi- 
er to be associated with that type. Such 
an identifier can be used wherever a 
type definition is needed? in a variable 
declaration (var, static, def, or ref), 
as a parameter, in a procedure or func- 
tion, in a field declaration within a 
record definition, or in another type 
declarat i on . 



5.1 A NOTE ABOUT STRINGS 



Standard Pascal defines the term 
"string" as a variable or constant which 
has an associated type of 
"packed array[l..n3 of CHAR", where n is 
a positive integer constant. 

Pascal/VS supports varying length 
strings; that is, strings which have 
lengths that vary at execution time. A 
variable may be declared as a varying 
length string with the predefined type 
STRING (see "The Type STRING" on page 
51). 



Throughout this manual the term "string" 
shall refer to an object of the prede- 
fined type STRING. 



5.2 TYPE COMPATIBILITY 



Pascal/VS supports strong typing of 
data. The strong typing permits 
Pascal/VS to check the validity of many 
operations at compile time; this helps 
to produce reliable programs at exe- 
cution time. Strong typing puts strict 
rules on what data types are considered 
to be the same. These rules, called 
type compatibility, requires you to 
carefully declare data. 



5.2.1 Implicit Type Conversion 



In general, Pascal/VS does not perform 
implicit type conversions on data. The 
only implicit conversions that 
Pascal/VS permits are : 

1. An INTEGER will be converted to a 
REAL (SHORTREAL) when one operand of 
a binary operation is an INTEGER and 
the other is a REAL (SHORTREAL). 

2. An INTEGER will be converted to a 
REAL (SHORTREAL) when assigning an 
INTEGER to a REAL (SHORTREAL) vari- 
able. 

3. An INTEGER will be converted to a 
REAL if it is used in a floating 
point divide operation (V). 
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4. An INTEGER will be converted to a 
REAL (SHORTREAL) if it is passed by 
value or passed by const to a param- 
eter requiring a REAL (SHORTREAL) 
value. 

5. A SHORTREAL will be converted to a 
REAL when one operand of a binary 
operation is a SHORTREAL and the 
other i s a REAL . 

6. A SHORTREAL will be converted to a 
REAL when assigning a SHORTREAL to a 
REAL variable. 

7. A SHORTREAL will be converted to a 
REAL if it is passed by value or 
passed by const to a parameter 
requiring a REAL value. 

+ 8. A string will be converted to a 

+ 'packed arrayCL.n] of CHAR' on 

+ assignment. The string will be pad~ 

+ ded with blanks on the right if it 

+ is shorter than the array to which 

+ it is being assigned. Truncation 

+ will raise a runtime error if check- 

+ i ng i s enabled. 
+ 

+9. A string being passed by value or 

+ passed by const to a formal parame- 

+ ter that requires a 

+ 'packed arrayCL.n] of CHAR' will 

+ be converted. The string will be 

+ padded with blanks on the right if 

+ it is shorter than the array to 

+ which it is being passed. Trun- 

+ cation will raise a runtime error if 

+ checking is enabled. 
+ 



5.2,2 Same Types 



Two variables are said to be of the same 
type if the declaration of the 
vari ables : 

• refer to the same type identifier; 

• or, refer to different type identi- 
fiers which have been defined as 
equivalent by a type definition of 
the form-' 

type Tl = T2 



5.2.3 Compatible Types 



Operations can be performed between two 
values that are of co mpatible types. 
Two types are said to be compatible if: 

the types are the same; 

one type i s a subrange of the other 
or they are both subranges of the 
same type; 

both types are strings; 

one value is a string literal and 
the other is a 'packed arrayCL.n] 
of CHAR'; 

one value is a string literal of one 
character and the other is a CHAR; 

they are set types with compatible 
base types; 

or, they are both 
'packed arrayCL.n] of CHAR* with 
the same number of elements. 

Furthermore, any object which i s of a 
set type is compatible with the empty 
set. And, any object which is a pointer 
type is compatible with the value nil. 



5.2.4 Assignment Compatible Types 

A value may be assigned to a variable if 
the types are a ssig n ment compatible. An 
expression E is said to be assignment 
compatible with variable V if: 

• the types are same type and neither 
is a file type; 

• V i s of type REAL and E is compat- 
ible with type INTEGER; 

• Visa compatible subrange of E and 
the value to be assigned is within 
the allowable subrange of V; 

• V and E have compatible set types 
and all members of E are permissible 
members of V; or, 



V is a 'packed arrayCL.n] of CHAR' 
and E i s a stri ng. 
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type 



X = arrayC l. .10 ] of 

INTEGER; 
DAYS = (MON, TUES, WED, THURS, 

FRI, SAT, SUN); 
WEEKDAY = MON . . FRI; 



var 



A • array C 1. .10 ] of 

INTEGER; 
B : arrayC 1 . . 10 ] of 

INTEGER; 
C, 
D : arrayC 1..10 3 of 

CHAR; 
E : X; 
F : X * 
Wl: DAYS; 
W2: WEEKDAY 



i s compat l ble 
wi th 

A A 

B B 

C CD 

D D, C 

E E, F 

F F, E 

Wl Wl, W2 

W2 W2, Wl 



Examples of Compatibility 
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5.3 THE ENUMERATED SCALAR 



Syntax : 



enumerated- scalar- type 
> ( 



TZ 



->{id>- 
— , <- 



■> ) 



An enumerated scalar is 
ing each value that is 
variable of this type, 
identifier which is 
self-defining constant, 
meaningful name to be 



formed by list- 
permitted for a 
Each value i s an 
treated as a 
Thi s allows a 
associated with 



each value of a variable of the type. 



type 

DAYS 


= (MON, TUES, 
FRI, SAT, 


WED, THURS, 
SUN); 


MONTHS 


= (JAN, FEB, 
MAY, JUN, 
SEP, OCT, 


MAR, APR, 
JUL, AUG, 
NOV, DEC); 


var 

SHAPE 


: (TRIANGLE, 


RECTANGLE, 



REC 



MONTH 



(TRIANGLE, RECTANGLE, 




Functi on 


SQUARE, CIRCLE); 


ORD 




+ 


MAX 


record 


+ 


MIN 


SUIT: (SPADE, HEART, 




PRED 


DIAMOND, CLUB); 




SUCC 


WEEKS DAYS 


+ 


LOWEST 


end; 


+ 


HIGHEST 



: MONTHS; 
Enumerated Scalars 



type being defined. The lexical scope 
of the newly defined constants is the 
same as that of any other identifier 
declared explicitly at the same lexical 
level . 

These constants are ordered such that 
the first value is less than the second, 
the second less than the third and so 
forth. In the first example, MON < TUES 
< WED < ... < SUN. There is no value 
less than the first or greater than the 
last . 

The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 
detai Is) > 



JLsLSe 



An enumerated scalar type definition 
declares the identifiers in the enumei — 
ation list as constants of the scalar 



125 
129 
129 
130 
130 
122 
122 



Notes : 

1. Two enumerated scalar type defi- 
nitions must not have any elements 
of the same name in the same lexical 
scope. 

2. The standard type BOOLEAN is defined 
as (FALSE, TRUE). 
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5.4 THE SUBRANGE SCALAR 



Syntax • 



subrange-scalai — type : 

> packed >-i 

< J 

I > (constant}- 



> .. Xconstant-exprJ r 

l > range >{constant-expr} > .. >{constant-expr} > J 



The subrange type i s a subset of consec- 
utive values of a previously defined 
scalar type. Any operation which is 
permissible on a scalar type is also 
permissible on any subrange of it. 

A subrange is defined by specifying the 
minimum and maximum values that will be 
permitted for data declared with that 
type. For subranges that arQ packed, 
Pascal/VS will assign the smallest num- 
ber of bytes required to represent a 
value of that type. 

If the reserved word range is used in 
the subrange definition, then both the 
minimum and maximum values may be any 
expression that can be computed at com- 
pile time. If the range prefix is not 
employed then the minimum value of the 
range must be a simple constant. 

The following predefined functions 
operate on expressions of a scalar type 
(see the indicated section for more 
detai Is) ' 



Funct i on 



ORD 

MAX 

MIN 

PRED 

SUCC 

LOWEST 

HIGHEST 



Page 



126 
130 
130 
131 
131 
123 
123 



Notes : 
1. 



A subrange of the standard type REAL 
i s not permi tted. 



2. The number of values in a subrange 
of type CHAR is determined by the 
collating sequence of the EBCDIC 
character set. 

3. The lower bound of a subrange defi- 
nition that is not prefixed with 



'range' must be a simple constant 
instead of a generalized constant 
expressi on . 



const 




SIZE = 


= 1000; 


type 




DAYS = 


= (5U, MO, TU, WE, 




TH, FR, SA); 


MONTHS = 


= (JAN, FEB, MAR, APR, 




MAY, JUN, JUL, AUG, 




SEP, OCT, NOV, DEC); 


UPPER CASE = 


= 'A' . . 'Z' ; 


ONE HUNDRED = 


= .. 99; 


CODES = 


= range 




CHR(0). .CHR(255); 


INDEX = 


= packed 1 . . SIZE+1; 


var 




WORK DAY 


MO .. FR; 


SUMMER 


JUN .. AUG; 


SMALLINT 


packed 0. .255; 


YEAR 


1900 .. 2000; 



Subrange Scalars 



The following example illustrates that 
two subrange types may be defined over 
the same base type. Operations arc pei — 
mi tted between these two variables 
because they have the same base type. 



var 

NEG 
POS 



MININT .. -1; 
1 .. MAXINIT; 



Subranges with the Same Base Type 
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35 



TNL SN2CM446 (31 December 81) to SH20-6168-1 



5.5 PREDEFINED SCALAR TYPES 



5.5.1 The Type INTEGER 



The following table describes the opei — 
ations and predefined functions that 



apply to values which are the standard 
type INTEGER. 



INTEGER 



operat i on 


form 


+ 


unary 


+ 


bi nary 


— 


unary 


— 


bi nary 


K 


bi nary 


/ 


bi nary 


di v 


bi nary 


mod 


bi nary 


= 


bi nary 


<> or -,= 


bi nary 


< 


bi nary 


<n 


bi nary 


>:: 


bi nary 


> 


bi nary 


- 


unary 


1 


bi nary 


I 


bi nary 


&& 


bi nary 


<< 


bi nary 



descri pt i on 



>> 

CHR(x) 

PRED(x) 

SUCC(x) 

ODD(x) 

ABS(x) 

SQR(x) 

FLOAT(x) 

MIN( ) 

MAXC ) 

LOWEST(x) 

HIGHEST(x) 

SIZEOF(x) 



bi nary 



f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
f unct 



i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 



f unct i on 
f unct i on 



returns the unchanged result of the operand 

forms the sum of the operands 

negates the operand 

forms the difference of the operands 

forms the product of the operands 

converts the operands to REAL and produces 

the REAL quotient 
forms the integer quotient of the operands 
forms the integer modulus of the operands 

(same as remainder if the arguments are positive) 

compares for equality 

compares for inequality 

compares for less than 

compares for less than or equal to 

compares for greater than or equal to 

compares for greater than 

returns one's complement on the operand 
returns 'logical or' on the operands 
returns 'logical and' on the operands 
returns 'logical xor' on the operands 
returns the left operand value shifted 

left by the right operand value 
returns the left operand value shifted 

right by the right operand value 

returns a CHAR whose EBCDIC representation is x 

returns x-1 

returns x+1 

returns TRUE if x is odd and FALSE otherwise 

returns the absolute value of x 

returns the square of x 

returns a REAL whose value is x 

returns the minimum value of two or more operands 

returns the maximum value of two or more operands 

returns MININT or the minimum value of the range 

if x is a subrange of INTEGER 
returns MAXINT or the maximum value of the range 

if x is a subrange of INTEGER 
returns the number of bytes required for a value 

of the type of x, which is always 1, 2, 3, or 4 



The type INTEGER is provided as a 
pre-defined type in Pascal/VS. This 
type represents the subset of whole num- 
bers as defined below: 

type 

INTEGER = MININT. .MAXINT; 

where MININT is a predefined INTEGER 
constant whose value is -21474S3648 and 
MAXINT is a predefined INTEGER constant 



whose value is 2147483647. That is, the 
predefined type INTEGER represents 32 
bit values in 2's complement notation. 

Type definitions representing integer 
subranges may be prefixed with the 
reserved word "packed". ' For variables 
declared with such a type, Pascal/VS 
will assign the smallest number of bytes 
required to represent a value of that 
type. The following table defines the 
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number of bytes required for different 
ranges of integers. For ranges other 
than those listed> use the first range 
that encloses the desired range. Given 
a type definition T as = 



Notes * 



1. 



type 



T = packed i . . j; 



Range of 
i . . 3 


Size in 
bytes 


Al i gnment 


0. .255 


1 


BYTE 


-128. .127 


1 


BYTE 


-32768. .32767 


2 


HALFWORD 


0. .65535 


2 


HALFWORD 


-8388608. .8388607 


3 


BYTE 


0. .16777215 


3 


BYTE 


otherwi se 


<+ 


FULLWORD 



The operations 
def i ned as-* 



of div and mod are 



A div B = TRUNCCA/B), B<>0 

A mod B = A-BKCA dlV B), A>=0,B>0 
A mod B = B-abs(A) mod B, A<0,B>0 

B=0 when doing a div operation or 
B<=0 when doing a mod operation 
is defined as an error and will 
cause a runtime error message to 
be produced. 

The following operators perform 
logical operations' 



<< 
>> 



$ 
&& 



shift left logical 
shift right logical 
1 ' s complement 
logical inclusive or 
logical and 
logical exclusive or 



The operands are treated as unsigned 
strings of binary digits. See "Logical 
Expressions" on page 78 for more details 
on logical expressions. 
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5.5.2 Tha Type CHAR 



The following table describes the opei — 
ations and predefined functions that 
apply to the standard type CHAR. 



CHAR 


operat i on 


form 


descri pt i on 


= 


bi nary 


compares for equality 




<> or -= 


bi nary 


compares for inequality 




< 


bi nary 


compares for left less than right 




< = 


bi nary 


compares for left less than or equal to 


ri ght 


> = 


bi nary 


compares for left greater than or equal 


to right 


> 


bi nary 


compares for left greater than right 




ORD(x) 


functi on 


converts operand to an INTEGER based on 
sequence of underlying character set. 


orderi ng 


PRED(x) 


f unct i on 


returns the preceding character 
in collating sequence 




SUCC(x) 


functi on 


returns the succeeding character 
in collating sequence 




STR(x) 


functi on 


converts the operand to a STRING 




MINC ) 


functi on 


returns the minimum value of two or more 


operands 


MAX( ) 


functi on 


returns the maximum value of two or more 


operands 


LOWEST(x) 


functi on 


returns the minimum value of the range o 
character x 


f the 


HIGHEST(x) 


functi on 


returns the maximum value of the range o 
character x 


f the 


SIZEOF(x) 


functi on 


returns the number of bytes required for 


a value 






of the type of a CHAR> which is always 


1 



CHAR is a scalar type that consists of 
all of the values of the EBCDIC charac- 
ter set. Variables of this type occupy 
one byte of memory and will be aligned 
on a byte boundary. 

A single-character string constant will 
be regarded as a CHAR constant if the 
context so dictates. For example, the 
assignment statement shown below sets 



vari able 
letter A. 

var C = 
begin 



end 



C to the EBCDIC code for the 



CHAR; 
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5.5.3 The Type BOOLEAN 



The following table describes the opei — 
ations and predefined functions that 
apply to the standard type BOOLEAN. 



BOOLEAN 



operat i on 



form 



descri pt i on 



I 



<> or -= 

< 

< = 

> = 

> 

ORD(x) 
MINC ) 
MAXC ) 
LOWEST(x) 
HIGHEST(x) 
SIZEOF(x) 



unary 

bi nary 
bi nary 
bi nary 

bi nary 
bi nary 
bi nary 
bi nary 
bi nary 
bi nary 

f unct i on 
f unct i on 
f unct i on 
f unct i on 
f unct i on 
f unct i on 



returns TRUE if the operand is FALSE, 

otherwise it returns FALSE 
returns TRUE if both operands are TRUE 
returns TRUE if either operand is TRUE 
returns TRUE if either, but not both operands are TRUE 

compares for equality 

compares for inequality 

compares for left less than right 

compares for left less than or equal to right 

compares for left greater than or equal to right 

compares for left greater than right 

returns if x is FALSE and 1 if x is TRUE 
returns TRUE if all operands are TRUE 
returns FALSE if all operands are FALSE 
returns the FALSE by definition 
returns the TRUE by definition 

returns the number of bytes required for a value 
of the type of a BOOLEAN, which is always 1 



Binary Operations on BOOLEAN 



<> 
< 
< = 

> 

I 



FALSE FALSE FALSE TRUE TRUE FALSE TRUE TRUE 



Name 



TRUE 


FALSE 


FALSE 


TRUE 


Equi valence 


FALSE 


TRUE 


TRUE 


FALSE 


Exclusive Or 


FALSE 


TRUE 


FALSE 


FALSE 




TRUE 


TRUE 


FALSE 


TRUE 


Impl i cat i on 


TRUE 


FALSE 


TRUE 


TRUE 




FALSE 


FALSE 


TRUE 


FALSE 




FALSE 


FALSE 


FALSE 


TRUE 


And 


FALSE 


TRUE 


TRUE 


TRUE 


Inclusive Or 


FALSE 


TRUE 


TRUE 


FALSE 


Exclusive Or 



The type BOOLEAN is defined as a scalar 
whose values are FALSE and TRUE as 
though declared with the following type 
declarat i on : 

type 

BOOLEAN=(FALSE,TRUE); 

Variables of this type will occupy one 
byte of memory and will aligned on a 
byte boundary. The relational operators 



form valid boolean functions as shown in 
the table of binary operations. 

Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving '&' 
(and) and ' |' (or) such that the right- 
operand expression will not be evaluated 
if the result of the operation can be 
determined by evaluating the left oper- 
and. For more details see "Boolean 
Expressions" on page 77. 



Types 



39 



TNL SN204446 (31 December 81) to SH20-6168-1 



5.5.4 Tha Type REAL 



The following table describes the opei — 
ations and predefined functions that 
apply to the standard type REAL. 



REAL 


operat i on 


form 


descri pt i on 


+ 


unary 


returns the value of the operand 


+ 


bi nary 


forms the sum of the operands 


- 


unary 


negates the operand 


- 


bi nary 


forms the difference of the operands 


* 


bi nary 


forms the product of the operands 


/ 


bi nary 


forms the REAL quotient of the operands 


= 


bi nary 


compares for equality 


<> or -= 


bi nary 


compares for inequality 


< 


bi nary 


compares for left less than right 


< = 


bi nary 


compares for left less than or equal to right 


>=: 


bi nary 


compares for left greater than or equal to right 


> 


bi nary 


compares for left greater than right 


TRUNC(x) 


f unct i on 


returns the operand value truncated to an INTEGER 


ROUNDCx) 


f unct i on 


returns the operand value rounded to an INTEGER 


ABS(x) 


f unct i on 


returns the absolute value of the operand 


SIN(x) 


f unct i on 


returns the trigonometric sine of x Cin radians) 


COS(x) 


f unct i on 


returns the trigonometric cosine of x (in radians) 


ARCTAN(x) 


f u n c t i on 


returns (in radians) the arc tangent of x 


L N ( x ) 


f unct i on 


returns the natural logarithm of x 


EXP(x) 


f unct i on 


returns natural log base raised to the x power 


SQRT(x) 


f unct i on 


returns square root of x 


SQR(x) 


f unct i on 


returns the square of x 


MINC ) 


f unct i on 


returns the minimum value of the operands 


MAXC ) 


f unct i on 


returns the maximum value of the operands 


SIZEOFCx) 


f unct i on 


returns the number of bytes required for a value 
of the type of a REAL, which is always 8 



The type REAL represents floating point 
data. Variables of this type will occu- 
py eight bytes of memo" y and will be 
aligned on a double word boundary. All 
REAL arithmetic is done using double 
precision floating point. See "Implicit 
Type Conversion" on page 31. 



The type REAL has restrictions that oth- 
er scalar types do not have. You may 
not take a subrange of REAL nor index an 
array by REAL. The predefined functions 
SUCC, PRED, ORD, HIGHEST and LOWEST are 
not defined for type REAL. 
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5.5.5 The Type SHORTREAL 



The following table describes the opei — 
ations and predefined functions that 
apply to the standard type SHORTREAL. 



SHORTREAL 



operat i on 



form 



descri pt i on 



or -- 



<> 
< 

< = 
> = 
> 



TRUNC(x) 

ROUND(x) 

ABS(x) 

SIN(x) 

COS(x) 

ARCTANCx) 

LN(x) 

EXP(x) 

SQRT(x) 

SQR(x) 

MINC ) 

MAX( ) 

SIZEOF(x) 



unary 
bi nary 
unary 
bi nary 
bi nary 
bi nary 

bi nary 
bi nary 
bi nary 
bi nary 
bi nary 
bi nary 



f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
f unct 
funct 
f unct 
funct 
funct 



i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 
i on 



returns the value of the operand 

forms the sum of the operands 

negates the operand 

forms the difference of the operands 

forms the product of the operands 

forms the SHORTREAL quotient of the operands 

compares for equality 

compares for inequality 

compares for left less than right 

compares for left less than or equal to right 

compares for left greater than or equal to right 

compares for left greater than right 



returns the operand value trunca 

returns the operand value rounde 

returns the absolute value of th 

returns the trigonometric sine o 

returns the trigonometric cosine 

returns (in radians) the arc tan 

returns the natural logarithm of 

returns natural log base raised 

returns square root of x 

returns the square of x 

returns the minimum value of the 

returns the maximum value of the 

returns the number of bytes requ 
of the type of a SHORTREAL, wh 



ted to an INTEGER 
d to an INTEGER 
e operand 
f x (in radians) 

of x (in radians) 
gent of x 

x 
to the x power 



operands 

operands 
i red for a value 
i ch is always 4 



The type SHORTREAL represents floating 
point data. Variables of this type will 
occupy four bytes of memory and will be 
aligned on a word boundary. All 
SHORTREAL arithmetic is done using sin- 
gle precision floating point 
i nstructi ons. 

Operations between data of type REAL and 
SHORTREAL will be performed using double 
precision floating point instructions. 
The SHORTREAL operand will be implicitly 
converted to a value of type REAL. A 
SHORTREAL may be passed as an operand to 



a function or procedure that expects its 
parameter to be of type REAL if the 
parameter passing mechanism for that 
parameter is value or const. See "Im- 
plicit Type Conversion" on page 31. 

The type SHORTREAL has restrictions that 
other scalar types do not have. You may 
not take a subrange of SHORTREAL nor 
index an array by SHORTREAL. The prede- 
fined functions SUCC, PRED, ORD, HIGHEST 
and LOWEST ar& not defined for type 
SHORTREAL. 
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5.6 THE ARRAY TYPE 



Syntax 



array-typ e- 

— > packed 



-<- 



H 



■> array [ 



-> (i ndex-type}- 



-> ] Of Xtype) 



, <- 



i ndex-type* 



-> (enumerated-scalai — type}- 
-> { i d- scalar- type}- 



-> (subrange-scalai — type}- 



The array type defines a list of homoge- 
neous elements; each element is paired 
with one value of the index. An element 
of the array is selected by a subscript. 
The number of elements in the array is 
the number of values potentially 
assumable by the index. Each element of 
the array is of the same type* which is 
called the element type of the array. 
Entire arrays may be assigned if they 
are of the same type. 

Pascal/VS uses square brackets. f C f and 
']', in the declaration of arrays. 
Because these symbols are not directly 
available on many I/O devices, the sym- 
bols f (.' and '.)' may be used as an 
equivalent to square brackets. 

Pascal/VS will align each element of the 
array, if necessary, to make each ele- 
ment fall on an appropriate boundary. A 
packed array will not observe the bound- 
ary requirements of its elements. Ele- 
ments of packed arrays may not be passed 
as var parameters to routines. 

An array which is defined with more than 
one index is said to be a 
mult i -dimensi onal array. A 
mul t i -di mensi onal array is exactly 
equivalent to an array of arrays. In 
short, an array definition of the form 

arrayCi , j, . . . 3 of T 

is an abbreviated form of 



type 



arrayCi] of 
arrayC j] 
. . . T 



of 



where i and j are scalar type defi- 
nitions. Thus, the first and second 
type declarations in the example below 
are alternatives to the same structure. 



MATRIX = arrayE 1..10, 1..10 ] of 
REAL; 

MATRIXO = arrayC 1..10 ] of 

arrayC 1. .10 ] of 
REAL; 

ABLE = arrayCBOOLEAN] of INTEGER; 

COLOR = (RED, YELLOW, BLUE); 

INTENSITY = packed arrayCCQLOR] 
of REAL; 

ALFA = packed array[ 1..ALFALEN] of 
CHAR; 

Examples of Array Declarations 



There are two procedures available for 
conversion between a packed array and a 
similar but unpacked array. The prede- 
fined procedures PACK (see "PACK Proce- 
dure" on page 121) and UNPACK (see 
"UNPACK Procedure" on page 121) are pro- 
vided for this purpose. 



5.6.1 Array Subscripting 



Array subscripting is performed by plac- 
ing an expression in square brackets 
following an array variable. The 
expression must be of a type that is 
compatible with the index type and eval- 
uate to one of the values of the index. 
See "Compatible Types" on page 32 The 
index may be any scalar type except 
REAL. 
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var 

M 
HUE 

begin 



MATRIX; 
INTENSITY; 



{ assign ten element array } 
MCI] ••= MC23; 

{ assign one element of a two } 
{ dimensional array two ways } 
MC1,1] := 3.14159; 
MC1H1] := 3.14159; 



{ this is a reddish orange 



HUECRED] 
HUECYELLOW] 
HUECBLUE] 
end 



= 0.7; 
= 0.3; 
= 0.0; 



} 



Examples of Array Indexing 
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5.7 THE RECORD TYPE 



Syntax * 



record-type 



1 > packed 

f i eld-1 i st ; 
1 > {f i xed-part}- 



ZJ 



-> record >{f i eld-1 i st} > end 



•> ; 



■> {vari ant- part)- 



-•> • 



^^ > 



f i xed-part 

1 C 



-Xfield}- 
, <— 



-Xtype) 



L >J 



; <- 



vari ant-part • 

> 

> case [ Xfield) > : ' t Xid'type) ' > of >n 



r<- 



TZ 



-> (range)- 
, < — 



-> : ( 



-Xfield-list}- 



*j 



•> 5 



; <- 




1^7 



( Xc 



onstant-expr) > ) >-* 



range 



Xconstant-expr}- 



T~; 



> (constant-exp 



r}— > J 



A record is a data structure which is 
composed of heterogeneous components; 
each element may be of a different type. 
Components of a record ar& called 
fields. 



5.7.1 Naming of a Field 



A field is referred to by the name of 
the field. The scope of the identifiers 



used as names is the record type itself. 
That is, every field name within a 
record must be unique, even if that name 
appears in a variant part. 

A field of a record need not be named; 
that is, the field identifier may be 
missing. In such a case, the field only 
serves as padding; it can not be refei — 
enced. 
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type 




REC = 


record 




A, 




B -INTEGER; 




: CHAR; (unnamed) 




C : CHAR 




end; 


DATE = 


record 




DAY : 1..31; 




MONTH : 1..12; 




YEAR : 1900. .2100 




end; 


PERSON 


= record 




LAST NAME, 




FIRST NAME : ALFA; 




MIDDLE INITIAL : CHAR; 




AGE : 0..99; 




EMPLOYED : BOOLEAN 




end; 



construct. You still refer to the vari- 
ant fields by their names but it is your 
responsibility to keep track of which 
variant is 'active' (i.e. contains valid 
data) during execution. 



In short, tag fields 
the following ways: 



may be defined in 



Simple Record Declarations 



• "case I : INTEGER Of" results in I 
being a tag field of type INTEGER. 

• "case INTEGER Of" means no tag field 
is present, the variants are denoted 
by integer values in the variant 
declarat i on . 

• "case I: of" means that I is the tag 
field and it must have been declared 
in the fixed part, the type of I i s 
as given in the field definition of 
I. 

The following examples illustrate the 
three tag fields in complete record 
def i ni t i ons. 



type 



5.7.2 Fixed Part 



The fixed part of a record is a series 
of fields that exist in &\/Qry variable 
that is declared to be of that record 
type. The fixed part, if present, is 
always before the variant part. 



5.7.3 Variant Part 



The variant part of a record permits the 
defining of an alternative structure to 
the record. The record structure adopts 
one of the variants at a time. 

The variant part of a record is denoted 
with the case symbol. A tag f i eld iden- 
tifier may follow. This field is a sca- 
lar value that indicates which variant 
is intended to be active. 

The tag field is a field in the fixed 
part of the record. When the tag field 
is followed by a type identifier, then 
the tag field defines a new field within 
the record. 

If the type identifier is missing, then 
the tag field name must be one which was 
previously defined within the record. 
This allows you to place the tag field 
anywhere in the fixed part of the 
record. 

A variant part of a record need not have 
a tag field at all. In this case, only a 
type identifier is specified in the case 



SHAPE = (TRIANGLE, RECTANGLE, 
SQUARE, CIRCLE); 



COORDINATES = 



{ fixed part 



record 




X,Y : 


REAL; 


AREA : 


REAL; 


case S : 


SHAPE Of 




{ variant part 


TRIANGLE 




(SIDE 


: REAL; 


BASE 


: REAL); 



RECTANGLE: 

(SIDEA,SIDEB 



REAL); 
REAL); 
: REAL) 
A Record With a Variant Part 



SQUARE: 

(EDGE : 

CIRCLE: 

(RADIUS 
end; 



The record defined as COORDINATES in the 
example above contains a variant part. 
The tag field is S, its type is SHAPE, 
and its value (whether TRIANGLE, RECTAN- 
GLE, SQUARE, or CIRCLE) indicates which 
variant is in effect. The fields SIDE, 
SIDEA, EDGE, and RADIUS would all occupy 
the same offset within the record. The 
following diagram illustrates how the 
record would look in storage. 
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fixed part : 



tag field: 
variant part 



AREA 



SIDE 



BASE 



SIDEA 



SIDEB 



EDGE 



RADIUS 



Each column in the variant represents 
one alternative for the variant. 



If you preferred the tag field to be the 
first field instead of the fourth, you 
could define it as follows: 



COORDINATES = 
record 



s 

X,Y 
AREA 
case S 


SHAPE; 
REAL; 
REAL; 
of 


TRIANGLE 

(SIDE 

BASE 


{ variant part 

E : REAL; 
E : REAL); 



RECTANGLE: 

(SIDEA, SIDEB 



REAL); 



SQUARE: 
(EDGE 



REAL); 



CIRCLE: 

(RADIUS : REAL) 
end; 

Record with Back Reference 
Tag Field 



If you preferred 
absent altogether 
record as follows: 



the tag field to be 
you could define the 



COORDINATES = 
record 

X,Y : REAL; 
AREA : REAL; 
case SHAPE of 

{ variant part 
TRIANGLE: 

(SIDE : REAL; 
BASE : REAL); 



RECTANGLE: 

(SIDEA, SIDEB 



REAL); 



SQUARE: 
(EDGE : 

CIRCLE: 

(RADIUS 
end; 



REAL); 
: REAL) 



Record Variant with No Tag Field 



5.7.4 Packed Records 



The fields in a record arG normally 
assigned offsets sequentially, padding 
where necessary for boundary alignment. 
In packed records, however, no such pad- 
ding is done. This may save storage 
within the record, but may degrade pel — 
formance of the program. Fields of 
packed records may not be passed as var 
parameters to a routine. 



5.7.5 Offset Qualification of Field s 



Pascal/VS provides you a method of forc- 
ing the fields of a record to begin at a 
specified byte offset in the record. A 
field name may be followed by a integer 
constant expression enclosed in paren- 
theses which represents the byte offset 
within the record that the field is to 
represent. All fields so specified must 
be in consecutive order according to 
offsets. If the offset is not 
specified, the field will be assigned 
the next offset that is required for 
boundary alignment. If an offset spec- 
ification attempts to assign an 
incorrect boundary for a field and the 
record is not packed, a compile time 
error will be raised. 

As an example of offset qualified fields 
within a record, consider a large con- 
trol block of 100 bytes, in which four 
fields at various offsets need to be 
referenced. 



46 



Pascal/VS Reference Manual 



byte 
di splacement 



i nformati on 






field A (integer) 


36 


field B (8 chars) 


80 


field C (4 flags) 


92 


f i eld D ( i nteger) 


The control 


block might be represente 


in Pascal/VS 


as follows** 


type 


' 


FLAGS = 


set of 




(F1,F2,F3,F4); 


PADDING 


= packed array[l..4] of 




CHAR; 


CB = 


packed record 




A 


INTEGER; 




B(36) 


ALFA; 




C(80) 


FLAGS; 




D(92) 


INTEGER; 
PADDING 




end; 


var 




BLOCK : 


CB; 


A Recor 


d with Offset Qualified 




Fi elds 
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5.8 THE SET TYPE 



Syntax 



set-types 



-> packed 



•> set of 



->{ base- scalar- type}- 



base- sea la i — type' 



■> (enumerated-scalar-type}- 

->{\ d' sea la i — type) 

-> (subrange- sea la i — type} — 



A variable whose type is a set may con- 
tain any combination of values taken 
from the base scalar type. A value is 
either in the set or it is not in. 

Note : Pascal/VS sets can be used in many 
of the same ways as bit strings (which 
often tend to be machine dependent). 
Each bit corresponds to one element of 
the base type and is set to a binary one 
when that element i s a member of the 
set. For example, a set operation such 
as intersection (the operator is '*") is 
the same as taking the "boolean and' of 
two bit strings. 



type 

CHARS 
DAYSOFMON 
DAYSOFWEEK 
FLAGS 



set Of CHAR; 
packed set of 1..31; 
set Of MONDAY. .FRIDAY; 
set of 
(A,B,C,D,E,F,G,H); 



Set Declarations 



The following table describes the oper- 
ations that apply to the variables of a 
set type. 



Set Operators 


operat i on 


form 


descri pt i on 


- 


unary 


returns the complement of the operand 




= 


bi nary 


compares for equality 




<> or -= 


bi nary 


compares for inequality 




<:: 


bi nary 


returns TRUE if first operand is subset of 
second operand 




>:: 


bi nary 


returns TRUE if first operand is superset of 
second operand 




i n 


bi nary 


TRUE if first operand (a scalar) is a member 
the set represented by the second operand 


i n 


+ 


bi nary 


forms the union of two sets 




* 


bi nary 


forms the intersection of two sets 




- 


bi nary 


forms the difference between two sets 




&& 


bi nary 


forms an "exclusive* union of two sets 




SIZEOF(x) 


funct i on 


returns the number of bytes required for a va 
of the type of x 


lue 



Set union produces a set which contains 
"all of the elements which are members of 
the two operands. Set intersection 
produces the set that contains only the 
elements common to both sets. Set dif- 
ference produces the set which includes 
all elements from the left operand 
except those elements which are members 
of the right operand. Set exclusive 
union produces the set which contains 
all elements from the two operands 
except the elements which are common to 



both operands. The in operator tests 
for membership of a scalar within a set; 
if the scalar is not a permissible value 
of the set and checking is enabled, then 
a runtime diagnostic will result. 

The storage and alignment required for a 
set variable is dependent on the scalar 
type on which the set is based. The 
amount of storage required for a packed 
set will be the minimum number of bytes 
needed so that every member of the set 
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may be assigned to a unique bit. Given 
a set definition! 



type 



S = set of BASE; 



where BASE is a scalar type which is 
not a subrange 

the ordinal value of the last member M 
which can be contained on the set is: 

M := ORD(HIGHESTCBASE)) 

The following table indicates the map- 
ping of a set variable as a function of 
M. 



Range of 
M 


Size in 
Bytes 


Ali gnment 


<= M <= 


7 


1 


BYTE 


8 <= M <= 


15 


2 


HALFWORD 


16 <= M <= 


23 


3 


BYTE 


24 <= M <= 


31 


4 


FULLWORD 


32 <= M <= 


255 


(M+7) 
div 8 


BYTE 



Unpacked sets based upon integer (or 
subranges of integers) will occupy 32 
bytes. The maximum value of a member of 
a set of integer may not exceed 255. 

The storage is the same for all unpacked 
sets of subranges of a base scalar type. 
The following illustrates this point. 



Gi ven : 






type 






T 


— 


set of t; 


S 


~ 


set of s; 



Where : 

t is a subrange of s. 

The types T and S have identical storage 
mappi ngs. 
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5 . 9 THE FILE TYPE 



Syntax^ 



f i le-type'' 
> file Of >{type>- 



All input and output in Pascal/VS use 
the file type. A file is a structure 
consisting of a sequence of components 
where each component i s of the same 
type. Variables of this type reference 
the components with pointers called file 
poi nte rs. A file pointer could be 
thought of as a pointer into an 
input/output buffer. 

The association of a file variable to an 
actual file of the system is implementa- 
tion dependent and will not be described 
in this manual. Refer to the Program- 
mer's Guide for this information. 



type 

TEXT = file Of CHAR; 
LINE = file Of 

packed arrayC1..80] of 
CHAR; 
PFILE = file of 
record 

NAME: packed 
arrayCl . .25] of 
CHAR; 
PERS0N_N0: INTEGER; 
DATE_EMPLOYED:DATE; 
WEEKLY_SALARY : INTEGER 
end; 

File Declarations 



You access the file through predefined 
procedures and functions (see "I/O 
Facilities" on page 103). They are- 

• GET (see "GET Procedure" on page 
107) 

• PUT (see "PUT Procedure" on page 
108) 

• EOF (see "EOF Function" on page 109) 

• EOLN (see "EOLN function" on page 
115) 



RESET (see "RESET Procedure" on page 
103) 

REWRITE (see "REWRITE Procedure" on 
page 104) 

READ (see "READ and READLN (TEXT 
Fi les)" on page 109) 

WRITE (see "WRITE and WRITELN (TEXT 
Files)" on page 112) 

TERMIN (see "TERMIN Procedure" on 
page 104) 

TERMOUT (see "TERMOUT Procedure" on 
page 105) 

PDSIN (see "PDSIN Procedure" on page 
105) 

PDSOUT (see "PDSOUT Procedure" on 
page 106) 

UPDATE (see "UPDATE Procedure" on 
page 106) 

SEEK (see "SEEK Procedure" on page 
108) 

COLS (see "COLS Function" on page 
116) 

PAGE (see "PAGE Procedure" on page 
115) 

CLOSE (see "CLOSE Procedure" on page 
107) 

OUTPUT and INPUT are predefined TEXT 
files. Pascal/VS enforces the following 
restrictions on the file type: 

1. A file may be passed by var or 
passed by const, but never by value 
to a procedure or function. 

2. A file may not be contained within a 
file. 
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5.10 PREDEFINED STRUCTURE TYPES 



5,10.1 The Type STRING 



Syntax : 


stri nq-tvpe : 
---> STRING 


— T — > < 


— > (constant-expr) > ) - 






;: - T 





The type STRING is defined as a 
'packed arraytl..n3 of CHAR' whose 
length varies at execution time up to a 
compile time specified maximum. The 
length of the array is obtained during 
execution by the LENGTH function (see 
"LENGTH Function" on page 137). The 
length is managed implicitly by the 
operators and functions which apply to 
STRIHGs. The maximum length of the 
array is obtained during execution by 
the MAXLENGTH function (see "MAXLENGTH 
Function" on page 137). The length of a 
STRING variable is determined when the 
variable is assigned. By definition, 
string constants belong to the type 
STRING. 

A STRING variable may be subscripted 
with an integer expression to reference 
individual characters. A subscript of 1 
will reference the first character. The 
subscript value must not be less than 1 
nor exceed the string's length. 

The constant expression which follows 
the STRING qualifier in the type defi- 
nition is the maximum length that the 
string may obtain and must be in the 
range of ' 1 . . 32767' . 

Any variable of a STRING type is compat- 
ible with any other variable of a STRING 
type; that is, the maximum length field 
of a type definition has no bearing in 
type compatibility tests. 

Implicit conversion is performed when 
assigning a STRING to a variable whose 
type is 'packed arrayCL.n] of CHAR'. 
All other conversion must be done 
expl i ci tly . 



The assignment of one string to another 
may cause a run time error if the actual 
length of the source string is greater 
then the maximum length of the target. 
Pascal/VS will never truncate implicit- 
ly. 



function GETCHAR( 

const S : STRING; 

IDX : INTEGER) : CHAR; 
begin 
{ Subscripted string variable } 
GETCHAR := SEIDX] 
end; 



var 

si*. 

S2: 

c-. 
begin 

si 

c 

{ c 



S2 
C 

{ C 
end; 



STRING(lO); 

STRING(5); 

CHAR; 

= 'MESSAGE:' 
= GETCHAR(S1 
assigned 'S' 



4) 
} 



= 'FIVE'; 

= GETCHAR(S2,2) 

assigned 'I' } 



Usage of STRING Variables 



+ The following table describes the opei — 
+ ations and predefined functions that 
+ apply to the variables of type STRING. 
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STRING 



ope rat i on 



form 



descri pt i on 



<> or -= 

< 

< = 

> = 

> 

II 
LENGTH 

MAXLENGTH 

LBOUND 

HBOUND 

SUBSTR 

DELETE 

TRIM 

LTRIM 

COMPRESS 

INDEX 

SIZEOF(x) 

READSTR 

WRITESTR 



bi nary 
bi nary 
bi nary 
bi nary 
bi nary 
bi nary 
bi nary 
f unct i on 

f unct i on 

f unct i on 

f unct i on 

f unct i on 

f unct i on 

f unct i on 

f unct i on 

f unct i on 

f unct i on 

f unct i on 

procedure 

procedure 



compares for equality* 

compares for inequality* 

compares for left less than right+* 

compares for left less than or equal to right+* 

compares for left greater than or equal to right+* 

compares for left greater than right+* 

catenates the operands 

returns the length of the STRING 

(see "LENGTH Function" on page 137). 
returns the declared length of a STRING 

(see "MAXLENGTH Function" on page 137). 
returns the value 1, STRINGS always have a lower 

bound of one (see "LBOUND Function" on page 124). 
returns the declared maximum number of elements of 

the string (see "HBOUND Function" on page 124). 
returns a specified portion of a STRING 

(see "SUBSTR Function" on page 138). 
returns a STRING with a portion removed 

(see "DELETE Function" on page 138). 
returns a STRING with trailing blanks removed 

(see "TRIM Function" on page 139). 
returns a STRING with leading blanks removed 

(see "LTRIM Function" on page 139). 
returns a STRING with multiple blanks removed 

(see "COMPRESS Function" on page 140). 
locates a STRING in another STRING 

(see "INDEX Function" on page 140). 
returns the number of bytes required for a value 

of the type of x 
converts a STRING to values by assigning variables 

(see "READSTR" on page 142). 
produces a STRING by converting the internal 
values of a list of expressions 
(see "WRITESTR" on page 142). 



If two STRINGS being compared ar& of different lengths, the 
shorter is assumed to be padded with blanks on the right 
until the lengths match. 

Relative magnitude of two strings is based upon the collating 
sequence of EBCDIC. 



STRING Conversions with Relational Operators 



RIGHT OPERAND 

packed 



relat i onal 
operat i ons 


CHAR 


arrayCl . .n] of 

CHAR 


STRING 


CHAR 


allowed 


not permitted 


use STR on 
the CHAR 


packed 
arrayCl. .n] of 

CHAR 


not permitted 


okay if the 
types are 
compati ble 


use STR on 
the array 


STRING 


use STR on 
the CHAR 


use STR on 
the array 


allowed 
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STRING Conversions on Assignment 






FRO 


M 




T 


assi gnment 


CHAR 


packed 
arrayCl . .n] of 

CHAR 


STRING 


CHAR 




allowed 


not permitted 


use string 













indexing to 
obtain char 




packed 
arrayCl. .n] 

CHAR 


Of 


not permitted 


okay i f the 
types are 
compati ble 


okay, STRING is 
converted. If 
truncat i on i s 
required, then 
an error results. 




STRING 




use STR to 
convert CHAR 
to a STRING 


use STR to 
convert array 
to a STRING 


allowed 
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+ 5.10.2 The Type ALFA 

+ 

+ 

+ 

+ The standard type ALFA is defined as 

+ 

const 

ALFALEN = 8; 



type 

ALFA = packed 

arrayCl. .ALFALEN] of 
CHAR; 



+ Any 'packed arrayCL.nJ of CHAR", 

+ including ALFA, may be converted to type 

+ STRING by the predefined function STR. 

+ The following table describes the opei — 

+ ations and predefined functions that 

+ apply to the variables of the predefined 

+ type ALFA. 



ALFA 


operat i on 


form 


descri pt i on 


= 


bi nary 


compares for equality 


<> or - = 


bi nary 


compares for inequality 


< 


bi nary 


compares for left less than right 


< = 


bi nary 


compares for left less than or equal to right 


> = 


bi nary 


compares for left greater than or equal to right 


> 


bi nary 


compares for left greater than right 


STR(x) 


f unct i on 


converts the ALFA to a STRING 


SIZEOF(x) 


f unct i on 


returns the number of bytes required for a value 
of the type of an ALFA> which is always 8 
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+ 5.10.3 The Type ALPHA 

+ 

+ 

+ 

+ The standard type ALPHA is defined as 

+ 

+ const 

+ ALPHALEN = 16; 

+ 

+ type 

+ ALPHA = packed 

+ arrayCl. .ALPHALEN] of 

+ CHAR; 

+ 



+ Any 'packed arrayCL.n] of CHAR*, 

+ including ALPHA, may be converted to 

+ type STRING by the predefined function 

+ STR. The following table describes the 

+ operations and predefined functions 

+ that apply to the variables of the pre- 

+ defined type ALPHA. 



ALPHA 


operat i on 


form 


descri pt i on 


= 


bi nary 


compares for equality 


<> or -= 


bi nary 


compares for inequality 


< 


bi nary 


compares for left less than right 


< = 


bi nary 


compares for left less than or equal to right 


> = 


bi nary 


compares for left greater than or equal to right 


> 


bi nary 


compares for left greater than right 


STRCx) 


funct i on 


converts the ALPHA to a STRING 


SIZEOF(x) 


f uncti on 


returns the number of bytes required for a value 
of the type of an ALPHA, which is always 16 



Types 



55 



5.10.4 The Type TEXT 



The standard type TEXT is defined as ; 

type 

TEXT = file of CHAR; 



In addition to the predefined procedures 
to do input and output, Pascal/VS 
defines several procedures which oper- 
ate only on files of type TEXT. These 
procedures perform character to 
internal representation (EBCDIC) con- 
versions and gives you some control over 
output field lengths. The predefined 
routines that may be used on TEXT files 
are'- 

• GET ("GET Procedure" on page 107) 

• PUT ("PUT Procedure" on page 108) 

• EOF ("EOF Function" on page 109) 

• EOLN ("EOLN function" on page 115) 

• RESET ("RESET Procedure" on page 
103) 

• REWRITE ("REWRITE Procedure" on 
page 104) 

• READ ("READ and READLN (TEXT Files)" 
on page 109) 

• READLN ("READ and READLN (TEXT 
Fi les)" on page 109) 



WRITE ("WRITE and WRITELN 
Files)" on page 112) 



(TEXT 



WRITELN ("WRITE and WRITELN (TEXT 
Files)" on page 112) 

PAGE ("PAGE Procedure" on page 115) 

CLOSE ("CLOSE Procedure" on page 
107) 

COLS ("COLS Function" on page 116) 

PDSIN ("PDSIN Procedure" on page 
105) 

PDSOUT ("PDSOUT Procedure" on page 
106) 

TERMIN ("TERMIN Procedure" on page 
104) 



TERMOUT ("TERMOUT 
page 105) 



Procedure" on 



UPDATE ("UPDATE Procedure" on page 
106) 

Pascal/VS predefines two TEXT variables 
named OUTPUT and INPUT. You may use 
these files without declaring them in 
your program. 
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5 . 11 THE POINTER TYPE 



Syntax 



poi ntei — type- 
> a >{id : type}- 



Pascal/VS allows variables to be created 
during program execution under your 
explicit control. These variables, 
which are called dynamic variables, are 
generated by the predefined procedure 
NEW. NEW creates a new variable of the 
appropriate type and assigns its address 
to the argument of NEW. You must 
explicitly deallocate a dynamic vari- 
able; the predefined procedures DISPOSE 
and RELEASE are provided for this pui — 
pose. 



ic variables are created in an area 
orage called a heap . A new heap is 
ed with the MARK predefined proce- 
a heap is released with the 
SE predefined procedure. A initial 

is allocated by Pascal/VS. All 
bles that were allocated in a heap 
deallocated when the heap is 
sed. An attempt to use a dynamic 
ble that has been deallocated (ei- 

via DISPOSE or RELEASE) is an 



Pascal/VS pointers are constrained to 
point to a particular type. This means 
that on declaration of a pointer, you 
must specify the type of the dynamic 
variable that will be generated by NEW 
or referenced. 

Pascal/VS defines the named constant nil 
as the value of a pointer which does not 
point to any dynamic variable (empty 
pointer). Nil is type compatible to 
every pointer type. 

The only operators that can be applied 
to variables of pointer type are the 



+ 


Dynam 


+ 


of st 


+ 


creat 


+ 


dure; 


+ 


RELEA 


+ 


heap 


+ 


var-\ a 


+ 


are 


+ 


relea 


+ 


van a 


+ 


ther 


+ 


error 



test for equality and inequality. The 
predefined function ORD may be applied 
to a pointer variable; the result of the 
function is an integer value which is 
equal to the address of the dynamic vai — 
iable referenced by the pointer. There 
is no function in Pascal/VS to convert 
an integer into a pointer. 



type 




ptr = a 


ELEMENT; 


ELEMENT 


= record 




PARENT : PTR; 




CHILD : PTR; 




SIBLING: PTR 




end; 


A 


Pointer Declarati 



This example illustrates a data types 
that can be used to build a tree. With 
this structure the parent node contains 
a pointer to the eldest child, the 
eldest points to the next sibling who 
points to the next, and so forth. 

In the above example type ELEMENT was 
used before it was declared. Referenc- 
ing an identifier prior to its declara- 
tion is generally not permitted in 
Pascal/VS. However, a type identifier 
which is used as the base type to a 
pointer declaration is an exception to 
thi s rule. 
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5.12 THE TYPE STRINGPTR 



Variables of type STRING 
lengths associated with them! 



have two 



• The current length which defines the 
number of characters in the string 
at any instant in time. 

• The maximum length which defines the 
storage required for the string. 

The predefined type STRINGPTR defines a 
pointer to a string which has no "maxi- 
mum length" associated with it until 
execution time. The procedure NEW is 
used to allocate storage for this type 
of pointer; an integer expression is 
passed to the procedure that specifies 
the maximum length of the allocated 
string. See "NEW Procedure" on page 
119. 



var 

P 

Q 

I 
begin 



STRINGPTR; 
STRINGPTR; 
0. .32767; 



I : = 59 • 

NEW(P,(I+1) div 2); 

WRITELNC MAXLENGTH(P) ); 

(writes '30 T to output } 

NEWCQ,5); 

Q3> := f 1234567890 f ; 

(causes a truncation } 
(error at execution } 

end 

Using the Predefined type STRINGPTR 
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5,13 STORAGE, PACKING, AND ALIGNMENT is suppressed. Fields of a packed 

record are allocated on the next byte, 
ignoring alignment requirements. 
For each variable declared with a pai — 

ticular type, Pascal/VS allocates a spe- Packed data occupies less space and is 
cific amount of storage on a specific more compact but may increase the exe- 
alignment boundary. The Programmer's cution time of the program. Moreover, a 
Guide describes implementation field of a packed record or an element 
requirements and defaults. of a packed array may not be passed by 

read/write reference (var) to a routine. 
Pascal/VS provides the packed record 
feature in which all boundary alignment 
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6.0 ROUTINES* 



Syntax 



rout i ne-dcl 



I 



> {procedure-headi ng}- 



> {f unct i on- head i ng}- 
r< ; <- 



•> {di recti ve} > ; 



~>-i 



-<- 



-> {declarat i on)- 



3 



•> {compound-statement} > ; 



procedure-headi ng ; 
> procedure >{id} > {formal-parameters}- 



f unct i on-head i nq : 
> function >{id} >{formal-parameters} > • >{id = type}- 



di recti ve' 

— > FORWARD 



_>. 



— > EXTERNAL ■ 
— > FORTRAN — 

— > MAIN 

l > REENTRANT 

forma I -parameters' 
— > C - 



■>- 
•>- 
>- 
■>- 



i > {formal}- 

L< . < — 



-> ) 



forma 1 ' 



-> var 



> const — > 



^ 



{id}- 
, <- 



-> {i d: type} 



->J 



•> {procedure-headi ng}- 
-> {f unct i on-head i ng} — 



There are two categories of routines 5 
procedures and functions. Procedures 
should be thought of as adding new 
statements to the language. These new 
statements effectively increase the 
language to a superset language contain- 
ing statements tailored to your 
specialized needs. Functions should 
also be thought of as increasing the 



flexibility of the language 1 functions 
add to your ability to express data 
transformation in expressions. 

Routines can return data to the caller 
by altering the var parameters or by 
assigning to variables that are common 
to both the invoker and the invoked rou- 
tine. In addition, functions also 
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return a value to the invoker upon 
return from the function. 



6.1 ROUTINE DECLARATION 



Routines must be declared prior to their 
use. The routine declaration consists 
of the routine heading, declarations and 
one compound statement. 

The heading defines the name of the rou- 
tine and binds the formal parameters to 
the routine. The heading of a function 
declaration also binds the function name 
to the type of value returned by the 
function. Formal parameters specify 
data that is to be passed to the routine 
when it is invoked. The declarations 
are described in chapter 4. The com- 
pound statement will be executed when 
the routine is invoked. 



6.2 ROUTINE PARAMETERS 



Formal parameters are bound to the rou- 
tine when the routine is defined. The 
formal parameters define what kind of 
data may be passed to the routine when 
it is invoked. These parameters also 
specify how the data will be passed. 

When the routine is invoked, a parameter 
list is built. At the point of invoca- 
tion the parameters are called the actu- 
al parameters . 



Pascal/VS permits parameters 
passed in following ways 1 



to be 



6.2.2 Pass bv Var Parameters 



Pass by Var (variable) is also called 
pass by reference. Parameters that are 
passed by var reflect modifications to 
the parameters back to the caller. 
Therefore you may use this parameter 
type as both an input and output parame- 
ter. The use of the var symbol in a 
parameter indicates that the parameter 
is to be passed by read/write reference. 
Only variables may be passed by this 
mechanism; expressions and constants 
may not. Also, fields of a packed 
record or elements of a packed array may 
not be passed as var parameters. 



+ 6.2.3 Pass bv Const Parameters 
+ 

+ 

+ Parameters passed by const may not be 

+ altered by the called routine. Also you 

+ should not modify the actual parameter 

+ value while the call to the routine has 

+ not yet completed. If you attempt to 

+ alter the actual parameter while it is 

+ being passed by const, the result is not 

+ defined. This method could be called 

+ pass by read only refere nce.. The param- 

+ eters appear to be constants from the 

+ called routine's point of view. Any 

+ expression, variable or constant may be 

+ passed by const (fields of a packed 

+ record and elements of a packed array 

+ may also be passed). The use of the 

+ "const" reserved word in a parameter 

+ indicates that the parameter is to be 

+ passed by this mechanism. With parame- 

+ ters which are structures (such as 

+ strings), passing by const is usually 

+ more efficient than passing by value. 



pass by value 

pass by read/write reference (var) 

pass by read only reference (const) 

pass by conformant string (var or 
const) 

formal routine parameter 



6.2.4 Formal Routine Parameters 



A procedure or function may be passed to 
a routine as a formal parameter. Within 
the called routine the formal parameter 
may be used as if it were a procedure or 
f uncti on . 



6.2.1 Pass bv Value Parameters 



Pass by value parameters can be thought 
of as local variables that are initial- 
ized by the caller. The called routine 
may change the value of this kind of 
parameter but the change i 5 never 
reflected back to the caller. Any 
expression, variable or constant (ex- 
cept of file type) may be passed with 
this mechanism. 



6.2.5 Conformant String Parameters 



It is often desirable to call a proce- 
dure or function and pass in a string 
whose declared length does not match 
that of the formal parameter. The 
conformant string parameter is used for 
thi s purpose. 

The conformant string parameter is a 
pass by Const or pass by var parameter 
with a type specified as STRING without 
a length qualifier. Strings of any 
declared length will conform to such a 
parameter. You can use the MAXLENGTH 
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parameter. You can use the MAXLENGTH 
function to obtain the declared length. 
See "MAXLENGTH Function" on page 137. 



procedure TRANSLATE 
(var S •• STRING; 

const TABLE: STRING); 
var 

I : 0. .32767; 

J : 1. .0RD(HIGHESTCCHAR))+1; 
begin 

for I := 1 to LENGTH(S) do 
begin 

J := ORDCSCimi; 

if J > LENGTH(TABLE) then 

SCI3 := ■ ' 
e lse 

SCI3 := TABLECJ]; 
end; 
end; 

Example of a Conformant Strings 



6.3 ROUTINE COMPOSITION 



There are six kinds of routines 





• 


i nternal 




• 


FORWARD 


+ 


• 


EXTERNAL 


+ 






+ 


• 


FORTRAN 


+ 






+ 


• 


REENTRANT 


+ 






+ 


• 


MAIN 



The directive used to identify each kind 
of declaration is shown in upper case 
above. 

Note: 



heading before declaring the declara- 
tions and compound statement. The rou- 
tine heading is declared followed by the 
symbol 'FORWARD'. This allows you to 
have a call to a routine prior to defin- 
ing the routine's body. If two routines 
are to be mutually recursive and are at 
the same nesting level , one of the rou- 
tines must be declared FORWARD. 

To declare the body of the FORWARD rou- 
tine; you declare the routine leaving 
off the formal parameter definition. 



6.3.3 EXTERNAL Routines 



An EXTERNAL routine is a procedure or 
function that can be invoked from out- 
side of its lexical scope (such as, 
another module). The EXTERNAL directive 
is used to specify the heading of such a 
routine. While many modules may call an 
EXTERNAL routine, only one module will 
actually contain the body of the 
routine. The formal parameters defined 
in the EXTERNAL routine declaration must 
match those in the module where the rou- 
tine is defined. An EXTERNAL routine 
declaration may refer to a Pascal/VS 
routine which is located later in the 
same module or located in another module 
or it may refer to code produced by oth- 
er means (such as assembler code). 

The following example illustrates two 
modules (a program module and a segment 
module) that share a single EXTERNAL 
routine. Both modules may invoke the 
routine but only one contains the defi- 
nition of the routine. 



program TEST; 

function SQUARE(X 
EXTERNAL; 
begin 

WRITELN( SQUARE(44) ); 
end . 



REAL) : REAL; 



A routine must be declared before it 
can be referenced. This allows the 
compiler to assure the validity of a 
call by checking parameter compat- 
ibility. 



6.3.1 internal Routines 



SEGMENT S; 

function SQUARE(X : REAL) : REAL; 

EXTERNAL; 
function SQUARE; 
begin 

SQUARE := X x X 
end; . 

Example of an EXTERNAL Function 



An i nternal routine may be invoked only 
from within the lexical scope that con- 
tains the routine definition. 



6.3.2 FORWARD Routines 



The body of an EXTERNAL routine may only 
be defined in the outermost nesting lev- 
el of a module; that is, it must not be 
+ nested within another routine. 



A routine declared 
by which you can 



FORWARD is the means 
declare the routine 
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6.3.4 FORTRAN Routines 



A FORTRAN routine is similiar to an 
EXTERNAL routine in that it specifies a 
routine that is defined outside the mod- 
ule being compiled. In addition, it 
specifies that the routine is a FORTRAN 
subprogram and therefore the con- 
ventions of FORTRAN ar& to be used. A 
FORTRAN routine is never defined within 
a Pascal/VS module. If you pass a 
literal constant to a FORTRAN subprogram 
by CONST, then you must assure that the 
FORTRAN subprogram does not alter the 
contents of parameter. In order to meet 
the requirements of FORTRAN you must 
obey the following restrictions 1 

• All parameters may be only var or 
const parameters. 

• If the routine is a function, it may 
only return a scalar result (this 
includes REAL and SHORTREAL). 

• Routines may not be passed. 

• Mult i -di mensi onal arrays are not 
remapped to conform to FORTRAN 
indexing, that is, an element of an 
array ACn,m! in Pascal will be ele- 
ment ACm,n) in FORTRAN. 



6.3.5 MAIN Procedures 



The M AIN directive is used to identify a 
Pascal procedure that may be invoked as 
if it were a main program. It is some- 
times desirable to invoke a Pascal/VS 
procedure from a non-Pascal routine, for 
example FORTRAN or assembler language. 
In this case it is necessary for certain 
initializing operations to be performed 
prior to actually executing the Pascal 
procedure. The MAIN directive specifies 
that these actions are to be performed. 



There are several restrictions 
use of the MAIN directive. 



on the 



only procedures 
di recti ve; 



may have the MAIN 



• a procedure that i s declared to be 
MAIN must have its body located in 
the same module; 

• the execution of a MAIN procedure 
will not be reentrant; 

• the MAIN directive may only be 
applied to procedures in the outer — 
most nesting level. 

Consult Pascal/VS Programmer's Guid e, 
order number SH20-6162 for further 
details on using MAIN. 



6.3.6 REENTRANT Procedures 



The REENTRANT directive is used to iden- 
tify a Pascal procedure that may be 
invoked as if it were a main program 
like a MAIN procedure. In addition, 
invocations of these procedures will be 
reentrant . 

In order to achieve this addition fea- 
ture, some help is required from you. 
The first parameter of a procedure 
defined with the REENTRANT directive 
must be an INTEGER passed by var. Prior 
to the v&ry first call from a 
non-Pascal/VS program you must initial- 
ize this variable to zero (0). On 
subsequent calls you must pass the same 
variable back unaltered (Pascal/VS sets 
the variable on the first call and needs 
that value on the subsequent 
invocations). You need not call the 
same procedure each time, you may call 
different procedures - just continue to 
pass this variable on each call. 

Consult Pascal/VS Prog r ammer's Guide , 
order number SH20-6162 for further 
details on using REENTRANT. 

Notes All Pascal/VS internal procedures 
and functions are reentrant. The REEN- 
TRANT directive is used to specify a 
procedure that i s both reentrant and 
invokable from outside the Pascal/VS 
execution environment. 
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6.3.7 Examples of Routines 



static 

C: CHAR? 

function GETCHAR:CHAR; 
EXTERNAL; 

procedure EXPRCvar VAL: INTEGER); 
EXTERNAL; 

procedure FACTOR(var VAL: INTEGER); 

EXTERNAL; 
procedure FACTOR; 
begin 

C := GETCHAR; 
if C = '(' then 
begin 

C := GETCHAR; 
EXPR(VAL) 
end 
else 

end; 

procedure EXPR War VAL: INTEGER); 
begin 

FACTOR(VAL); 

end; 
Examples of Routine Declarations 



function CHARFOUND 
(const S: STRING; 

C: CHAR): BOOLEAN; 
var i: l. .255; 
begi n 

for I := 1 to LENGTH(S) do 
if SCI] = C then 
begin 

CHARFOUND := TRUE; 
return 
end; 
CHARFOUND : = FALSE; 
end; 

Example of Const Parameter 



expression at the point of the call. 
The value must be assignment conformable 
to the type of the function. 

If the function name is used on the 
right side of an assignment, it will be 
interpreted as a recursive call. 



function FACTORIAL 

(X: INTEGER): INTEGER; 

begin 

if X <= 1 then 
FACTORIAL := 1 

else 

FACTORIAL : = X * FACTORIAL CX-1 ) 
end; 

Example of Recursive Function 



Standard Pascal permits a function to 
return only a scalar value. Pascal/VS 
provides for a function to return any 
type except a file. This means that you 
can write a Pascal/VS function that 
returns a record structure as its result 
(such as you might wish to do for imple- 
menting a complex arithmetic library). 
A function may also return a string, 
however you must specify the maximum 
length of the string to be returned. 



type 

COMPLEX = record 

R,I : 

end 



REAL 



COMPLEX) : COMPLEX; 



function CADD 
(const A,B 
var 

C : COMPLEX; 
begin 

C.R := A.R + B.R; 

C.I := A.I + B.I; 

CADD := C 
end; 

Example of a Function Returning a Record 



6.5 PREDEFINE D PROC EDURES AND FUNC- 
TIONS 



6.4 FUNCTION RESULTS 



A value is returned from a function by 
assigning the value to the name of the 
function prior to leaving the function. 
This value is inserted within the 



Pascal/VS predefines a number of proce- 
dures and functions that you may find 
valuable. Details of the predefined 
procedures and functions are given in 
section titled "I/O Facilities" on page 
103. 
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7.0 VARIABLES 



Syntax 



vari able ; 
>{id>- 



■>-i 



-<- 



-> C 
-> . 

■> a 



T^ 



->{expr>- 



■> 3 



->- 



->{id:field>- 



■>- 



.>j 



notcs ; 

subscripted variable 

field reference 
pointer reference 



Pascal/VS divides variables 
classes depending on how 
declared 1 

• automatic (var variables) 



i nto 
they 



f i ve 
are 



+ • 
+ 
+ • 



dynamic (pointei — qualified vari 
ables) 

static (static variables) 

external (def/ref variables) 



• parameter (declared 
declarat i on) 



a routine 



A variable may be referenced in several 
ways depending on the variable's type. 
You may always refer to the entire vari- 
able by specifying its name. You may 
refer to a component of a structured 
variable by using the syntax shown in 
the syntax diagram. 

If you simply specify the name of the 
variable, then you are referring to the 
entire variable. If that variable is 
declared as an array, then you are 
referring to the entire array. You may 
assign an entire array. Similarly, you 
may also deal with record and set vari- 
ables as uni ts. 



var 

LINEl, 

LINE2 : packed 

arrayC 1. .80 ] of 

CHAR; 



{ assign all 80 characters } 
{ of the array } 

LINEl := LINE2; 

Using Variables in their entirety 



7.1 SUBSCRIPTED VARIABLE 



An element of an array is selected by 
placing an indexing expression enclosed 
within square brackets, after the name 
of the array. The indexing expression 
must be of the same type as declared on 
the corresponding array index defi- 
nition. 

A mul t i -dimensi onal array may be refer- 
enced as an array of arrays. For exam- 
ple, let variable A be declared as 
follows^ 

A: array Ca..b,c..d3 of T 

As explained in "The Array Type" on page 
42, this declaration is exactly equiv- 
alent to? 



A: array [a. .b] of 

array [c. .d] of T 
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A reference of the form ACI] would be a 
variable of type: 

array Cc. . dl of T 

and would represent a single row in 
array A. A reference of the form 
ACI3CJ3 would be a variable of type T 
and would represent the Jth element of 
the Ith row of array A. This latter 
reference would customarily be abbrevi- 
ated as 

ACI, J] 

Any array reference with two or more 
subscript indicies can be abbreviated by 
writing the subscripts in a comma sepa- 
rated list. That is, ACI3CJ3... could 
be written as ACI, J,... 3. 

If the »%CHECK SUBSCRIPT' option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
its value does not lie outside of the 
subscript range of the array. An exe- 
cution time error diagnostic will occur 
if the value lies outside of the pre- 
scribed range. (For a description of 
the CHECK feature see "The %CHECK State- 
ment" on page 148.) 

A variable of type STRING may be sub- 
scripted with an integer expression to 
reference individual characters. The 
value of the subscript must not be less 
than 1 or greater than the length of the 
string. String subscripts are checked 
at run time if %CHECK SUBSCRIPT is ena- 
bled. 



AC123 

ACI3 

AC I+J 3 

DECKC CARD-FIFTY 3 

MATRIXC R0WCI3, C0LUMNCJ3 3 

Subscripted Variables 



var 

PERSON: 
record 

FIRST_NAME, 

LAST_NAME= STRING(15); 
end; 

DATE: 
record 

DAY: 1..31; 
MONTH: 1..12; 
YEAR: 1900. .2000 
end; 

DECK: 

arrayCl. .523 of 
record 

CARD: 1..13; 
SUIT: 

(SPADE, HEART, 
DIAMOND, CLUB) 
end; 



PERSON. LAST_NAME := 'SMITH 1 ; 
DATE. YEAR := 1978; 
DECKC I 3. CARD := 2; 
DECKC I 3. SUIT := SPADE; 

Field Referencing Examples 



7.2 FIELD REFERENCING 



7.3 POINTER REFERENCING 



A dynamic variable is created by the 
predefined procedure NEW or by an imple- 
mentation provided routine which 
assigns an address to a pointer 
variable. You may refer either to the 
pointer or to the dynamic variable; ref- 
erencing the dynamic variable requires 
using the pointer notation. 

For example 

var P : a R; 

P refers to the pointer 

Pa refers to the dynamic variable 



A field of a record is selected by fol- 
lowing the record variable by a period 
and by the name of the field to be ref- 
erenced. 



If the '%CHECK POINTER' option is ena- 
bled, any attempt to reference a pointer 
that has not been assigned the address 
of an allocated variable will result in 
an execution time error diagnostic. 
(For a description of the CHECK feature 
see "The 5JCHECK Statement" on page 148.) 
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If the 'XCHECK POINTER 1 option is en&- 

bled* any attempt to reference a file 

pointer which has no value will result var 

in an execution time error diagnostic. INPUT 

(For a description of the CHECK feature OUTPUT 

see "The 5JCHECK Statement" on page 146.) LINE1 



TEXT; 
TEXT; 
array Cl. .80] of CHAR? 



{ scan off blanks } 

{ from a file of CHAR } 

GET(INPUT); 
while INPUTS = f ' do 
GET(INPUT); 



{ transfer a line to the } 
{ OUTPUT file > 

for I := l to 80 do 
begin 

OUTPUTS := LINE1CI]; 
PUT(OUTPUT) 
end; 

File Referencing Examples 
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8.0 EXPRESSIONS 



Syntax 



constant-expr' 
> {simple-expression}' 




-> in > 



■> (si mple-expressi on}- 



7T 



simple-expression 1 



•> + 
-> - 



>J 



-> {term}- 



-> + 
-> - 



-> 



> && — >- 

— > | >-| 



L <- 



term' 



-> {factor}- 



-> * — 

-> / — 

-> div 

-> mod 



-> 

->H 

-> 

-> 

> >> >- 

h > << >- 

> || — — >- 

> & >H 



■■<- 

factor 



->{function-call}- 
-> {vari able} 



> {set-constructor} 

> ( >{expr} > ) — 

> {structured-constant} 

> not > {factor} 



■>{unsigned- constant}- 



Pascal/VS expressions are similar in 
function and form to expressions found 
in other high level programming lan- 
guages. Expressions permit you to com- 
bine data according to specific 
computational rules. The type of compu- 
tation to be performed is directed by 
operators which are grouped into four 
classes according to precedence- 



- the not operator (highest) 

- the multiplying operators 

- the adding operators 

- the relational operators (lowest) 

An expression is evaluated by performing 
the operators of highest precedence 
first* operators of the next precedence 
second and so forth. Operators of equal 
precedence are performed in a left to 
right order. If an operator has an 
operand which is a parenthesized sub- 
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expression, the sub-expression is uses that value, then the value used is 

evaluated prior to applying the not specified to be the updated value, 

operator. The only exception is in boolean expres- 
sions involving the logical operations 

The operands of an expression may be of 'and' (&) and 'or' (|); for these 

evaluated in either order; that is, you operations the right operand will not be 

should not expect the left operand of evaluated if the result can be deter — 

dyadic operator to be evaluated before mined from the left operand. See 

the right operand. If either operand "Boolean Expressions" on page 77. 
changes a global variable through a 
function call, and if the other operand 
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Examples 


of Expressions 


Assume the foil 


owing dec 


lara 


ti ons 




const 

ACME 




: 'acme' 


; 






typa 

COLOR 
SHADE 
DAYS 
MONTHS 




= (RED, 
= set of 

= (SUN, 

= (JAN, 

JUL, 


YELLOW, BLUE); 

COLOR; 
MON, TUES, WED, THUR, FRI, SAT); 
FEB, MAR, APR, MAY, JUN, 
AUG, SEP, OCT, NOV, DEC); 


var 

A COLOR 

A SET 

BOOL 

MON 

I, 

J 




COLOR; 
SHADE; 
BOOLEAN; 
MONTHS 








INTEGER; 






factors : 












I 










vari able 


15 

(I*8+J) 
[ RED ] 
[ ] 

ODD(IKJ) 
not BOOL 
COLORC 1 ) 
ACME 










unsigned constant 
parenthetical expression 
set of one element 
empty set 
function call 
complement expression 
scalar type converter 
constant reference 


terms: 












I 

I x J 

I div J 

ACME | | » TRUCKING' 

A SET * C RED ] 

I & 'FFOO'X 

BOOL & ODD(I) 






factor 

mult i pi i cat i on 

i nteger di vi si on 

catenat i on 

set intersection 

logical and on integers 

boolean and 


simple expressi 


o 


n J 








I * J 

I + J 

I f '80000000'X 

A SET + [ BLUE ] 






term 

addi t i on 

logical or on integers 

set union 


- I 










unary minus on an integer 


expressi on ' 












I + J 

RED = A COL 

RED in A SE 


OR 
T 






simple expression 
relational operations 
test for set inclusion 
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8.1 OPERATORS 



Multiplying Operators 


operator 


operat i on 


operands 


result 


x 


mult i pli cat i on 


INTEGER 


INTEGER 






REAL 


REAL 






REAL, INTEGER 


REAL 






SHORTREAL 


SHORTREAL 






SHORTREAL, INTEGER 


SHORTREAL 






SHORTREAL, REAL 


REAL 


/ 


real di vi si on 


INTEGER 


REAL 






REAL 


REAL 






REAL, INTEGER 


REAL 






SHORTREAL 


SHORTREAL 






SHORTREAL, INTEGER 


SHORTREAL 






SHORTREAL, REAL 


REAL 


div 


i nteger di vi si on 


INTEGER 


INTEGER 


mod 


modulo 


INTEGER 


INTEGER 


& (and) 


boolean and 


BOOLEAN 


BOOLEAN 


& (and) 


logical and 


INTEGER 


INTEGER 


X 


set intersection 


set of t 


set of t 


II 


string catenation 


STRING 


STRING 


<< 


logical left shift 


INTEGER 


INTEGER 


>> 


logical right shift 


INTEGER 


INTEGER 



Adding Operators 


operator 


operat i on 


operands 


result 


+ 


addi t i on 


INTEGER, INTEGER 


INTEGER 






REAL, REAL 


REAL 






REAL, INTEGER 


REAL 






SHORTREAL, SHORTREAL 


SHORTREAL 






SHORTREAL, INTEGER 


SHORTREAL 






SHORTREAL, REAL 


REAL 


- 


subtract! on 


INTEGER, INTEGER 


INTEGER 






REAL, REAL 


REAL 






REAL, INTEGER 


REAL 






SHORTREAL, SHORTREAL 


SHORTREAL 






SHORTREAL, INTEGER 


SHORTREAL 






SHORTREAL, REAL 


REAL 


- 


set difference 


set of t 


set of t 


I (^r) 


boolean or 


BOOLEAN 


BOOLEAN 


1 (or) 


logical or 


INTEGER 


INTEGER 


+ 


set union 


sat of t 


S2t Of t 


&& (xor) 


exclusive or 


INTEGER 


INTEGER 


&& (xor) 


'exclusive' union 


set of t 


sot of t 
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The Not 


Operator 






operator 


operat i on 


operand 


result 


- (not) 


boolean not 


BOOLEAN 


BOOLEAN 




- (not) 


logical one's 
complement 


INTEGER 


INTEGER 




- (not) 


set complement 


set of T 


set of T 







Relational Operators 






operator 


operation 


operands 


result 




= 


compare equal 


any set, scalar type, 
pointer or string 


BOOLEAN 




<> (-=) 


compare not equal 


any set, scalar type, 
pointer or string 


BOOLEAN 




< 


compare less than 


scalar type or string 


BOOLEAN 




< = 


compare < or = 


scalar type, string 


BOOLEAN 




< = 


subset 


set of t 


BOOLEAN 




> 


compare greater 


scalar type, string 


BOOLEAN 




> = 


compare > or = 


scalar type, string 


BOOLEAN 




> = 


superset 


set of t 


BOOLEAN 




in 


set membership 


t and set Of t 


BOOLEAN 
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+ 8.2 CONSTANT EXPRESSIONS 

+ 

+ + 

+ Constant expressions are expressions + 
+ which can be evaluated by the compiler + 
+ and replaced with a result at compile + 
+ time. By its nature, a constant expres- + 
+ sion may not contain a reference to a + 
+ variable or to a usei — defined function. + 
+ Constant expressions may appear in con- + 
+ stant declarations. + 

+ + 

+ The following predefined functions are + 
+ permitted in constant expressions^ + 
+ + 

+ Funct i on Page + 

+ + 

+ ABS 132 + 

+ CHR 126 + 

+ HIGHEST 123 

+ LENGTH 137 

+ LOWEST 123 

+ MAX 130 

+ MAXLENGTH 137 

+ MIN 130 

| ODD 132 

+ ORD 126 

+ PRED 131 

+ scalar conversion 

+ functions 127 

+ SIZEOF 125 

+ SUCC 131 



constant 




express) on 


type 


ORD('A') 


INTEGER 


SUCCCCHRCFO'X)) 


CHAR 


256 div 2 


INTEGER 


'TOKEN' I |STR(CHR(0)) 


STRING 


'8000'X | '0001'X 


INTEGER 


CO' . .'9'] 


set Of CHAR 


32768^2-1 


INTEGER 


Examples of Constant 


Expressi ons 
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8.3 BOOLEAN EXPRESSIONS 

You should recognize that Pascal assigns 
the operations of "&" (and) and "I" a 
higher precedence than the relational 
operators. This means that the expres- 
sions 

A<B 8 C<D 

Mill be evaluated as • 

(A < (B&O) < D 



Thus, it is advisable to use parenthesis 
when writing expressions of this sort. 

Pascal/VS will optimize the evaluation 
of BOOLEAN expressions involving '&' 
(and) and » |* (or) such that the right 
operand of the expression will not be 
evaluated if the result of the operation 
can be determined by evaluating the left 
operand. For example, given that A, B, 
and C are boolean expressions and X is a 
boolean variable, the evaluation of 

X •• = A or B or C 

would be performed as 

if A then 

X := TRUE 

else 

if B then 

X := TRUE 
else 
X := C 

The evaluation of 

X := A and B and c 

would be performed as 

if -A then 

X := FALSE 
else 

if -B then 
X := FALSE 

else 

X := C 



The evaluation of the expression 
always be left to right. 



will 



The following example demonstrates log- 
ic which depends on the conditional 
evaluation of the right operand of the 
"and" operator. 



type 

RECPTR = 3REC; 
REC = record 

NAME: ALPHA; 

NEXT: RECPTR; 
end; 

var 

P : RECPTR; 
LNAME : ALPHA; 



beg i n 

while (Ponil) and 

(Pa.NAME <> LNAME) 
do 

P := PS. NEXT; 

end; 

Example of a BOOLEAN Expression 
that Depends on Order of Evaluation 



Notes : 



If you use a function in the right 
operand of a boolean expression, 
then you must be aware that the 
function may not be evaluated. Fui — 
ther, you should note that relying 
on side-effects from functions is 
considered a bad programming prac- 
tice. 

Not all Pascal compilers support 
this interpretation of BOOLEAN 
expressions. If you wish to assure 
portability between Pascal/VS and 
other Pascal implementations you 
should write the compound tests in a 
form that uses nested 
i f-statements. 
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+ 8.4 LOGICAL EXPRESSIONS + • '-' (not) performs a one's comple- 

+ + ment of an integer. 

+ + 

+ Many of the integer operators provided + • '<<' shifts the left operand value 

+ in Pascal/VS perform logical operations + left by the amount indicated in the 

+ on their operands; that is, the operands + right operand. Zeroes are shifted in 

+ are treated as unsigned strings of bina- + from the right. 

+ ry digits instead of signed arithmetic + 

+ quantities. For example, if the integer + • '>>' shifts the left operand value 

+ value of -1 was used as an operand of a + right by the amount indicated in the 

+ logical operation, it would be viewed as + right operand. Zeroes are shifted in 

+ a string of binary digits with a + from the left. 

+ hexadecimal value of 'FFFFFFFF'X. + 

+ + 

+ The logical operations are defined to + 

+ apply to 32 bit values. Such an opera- + 257 & 'FF'X yields 1 

+ tion on a subrange of an INTEGER could + 2 | 4 I 8 yields 14 

+ yield a result outside the subrange. + 4 << 2 yields 16 

+ + -4 << 1 yields -8 

+ The following operators perform logical + 8 >> 1 yields 4 

+ operations on integer operands: + -8 >> 1 yields '7FFFFFFCX 

+ + 'FFFF'X >> 3 yields 'IFFF'X 

+ • '&' (and) performs a bit-wise and of + -1 I 'FF'X yields 'FE'X 

+ two integers. + -0 yields -1 

+ + 'FF'X &$ 8 yields 'F7'X 

+ • '|' (or) performs a bit-wise inclu- + 

+ sive or. + Examples of Logical Operations 

+ + 

+ • '8£' (XOD performs a bit-wise + 

+ exclusi ve OP. 
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8.5 FUNCTION CALL 



Syntax^ 



functi on-call ' 
> { i d'' f unct i on} > (act ual -parameter s}- 



actual -parameters 1 
— > ( - 



-> (exprJ- 
<- 



rZF 11 ' " i rEZI 



-> ) 



■> J 



A function returns a value to the 
invoker. A call to a function passes 
the actual parameters to the correspon- 
ding formal parameters. Each actual 
parameter must be of a type that is 
conformable to the corresponding formal 
parameter. You may not pass a field of 
a packed record as a var parameter. You 
also may not pass an element of a packed 
array as a var parameter. 

The parenthesis list may be dropped if 
the function requires no parameters. 
However, if you wish to draw attention 
to a function call that has no parame- 
ters and make it appear different from a 
variable reference, you can follow the 
function name with an empty set of 
parenthesi s. 



var A,B,C: INTEGER; 

function SUM 

(A,B: INTEGER): INTEGER; 
begin 

SUM := A+B 
end; 

begin 

C*:= SUM(A,B) x 2 

end; 

Function Example 
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8.6 SCALAR CONVERSIONS 



Pascal/VS predefines the function ORD 
that converts any scalar value into an 
integer. The scalar conversion func- 
tions convert an integer into a speci- 
fied scalar type. An integer expression 
is converted to another scalar type by 
enclosing the expression within paren- 
theses and prefixing it with the type 
identifier of the scalar type. If the 
operand is not in the range 
ORDCHIGHESTCscalar type)), then a sub- 
range error will result. The conversion 
is performed in such a way as to be the 
inverse of the ORD function. See 
"Scalar Conversion" on page 126. 

The definition of any type identifier 
that specifies a scalar type (enumerated 
scalers or subranges) forms a scalar 



conversion function. By definition* the 
expression CHAR(x) is equivalent to 
CHR(x); INTEGER(x) is equivalent to x; 
and ORDCtype(x)) is equivalent to x. 



type 

WEEK = 

(SUN,MON,TUE,WED,THU,FRI,SAT); 
var 

DAY: WEEK; 



{The following assigns SAT to DAY) 
DAY := WEEKC6); 

Scalar Conversion Functions 
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8.7 SET CONSTRUCTOR 



Syntax : 


set-contructor'- 

.... .,,-s r 
















^ i 




■? L 






> Cexpr J 


, 




^ r i 


>j 




p j ■"■ - ^ 




" ■ v' lexprJ — 








t 



























A set constructor is used 
value of a set type 
expressi on . 



to compute a 
within an 



The set constructor is list of comma 
separated expressions or expression 
pairs within square brackets. An 
expression pair designates that all val- 
ues from the first expression through 
the last expression are to be included 
in the resulting set; the evaluation of 
the first expression must produce a val- 
ue less than or equal to the value 
computed by the second expression. Each 
expression must be of the same type; 
this type becomes the base scalar type 
of the set. If the set specifies INTE- 
GER valued expressions, then there is an 
implementation restriction of 256 ele- 
ments permitted in the set. 



type 

DAYS = set of 

(SUN,MON,TUES,WED,THU,FRI,SAT) 
CHARSET= set Of CHAR; 



var 

WORKDAYS, 
WEEKEND: DAYS 
NONLETTERS: CHARSET; 



WORKDAYS 
WEEKEND 



= [MON. . FRI]; 
= - WORKDAYS; 



NONLETTERS : = 

- ['a* . . 'z f , 'A' ..'Z'3; 

Set Constructor 
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9.0 STATEMENTS 



Syntax 2 



statement ; , 

— >{label>- 



> {assert- statement) 

— > {assi gnment- statement)- 
— > (case- statement} 



3 



■> {compound-statement}- 



>{conti nue- statement} 

— > {empty-statement} 

— >{for-statement} 



■> {goto-statement}- 
->{i f- statement} — 



> {leave- statement} 

> {procedure-call}— 



> {repeat-statement}- 

> {ret urn- statement} 

> {whi le-statement}— 

> {wi th-statement} — 



,_________________________N. 



Statements are your directions to pei — 
form specific operations based on the 
data. The statements are similar to 



those found in most high level program- 
ming languages. 
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+ 9.1 THE ASSERT STATEMENT 

+ 
+ 



Syntax 



assert- statement : 
> assert Xexpr} > 



+ 

+ The assert-statement i s used to check + 

+ for a specific condition and signal a + 

+ runtime error if the condition is not + 

+ met. The condition is specified by the + 

+ expression which must evaluate to a + 

+ BOOLEAN value. If the condition is not + 

+ TRUE then the error is raised. The com- + 

+ pi ler may remove the statement from the + 

+ program if it can be determined that the + 

+ assertion is always true. + 
+ 



Example 










assert 


A 


>= 


B 








The 


Assert 


Statement 
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9.2 THE ASSIGNMENT STATEMENT 



Syntax* 



assi gnment-statement > 
T > {variable}— 



-> {i d : f unct i on}- 



^J 



-> : = 



■> {expr}' 



The assignment-statement is used to 
assign a value to a variable. This 
statement is composed of a reference to 
a variable followed by the assignment 
symbol (' : ='), followed by an expression 
which when evaluated is the new value. 
The variable must be conformable to the 
expression. The rules for expression 
conf ormabi 1 i ty are given in "Type Com- 
patibility" on page 31. 

You may make arr&y assignments (assign 
one array to another array) or record 
assignments (assign one record to anoth- 
er). When doing this, the entire array 
or record is assigned. 

A result is returned from a function by 
assigning the result to the function 
name prior to leaving the function. See 
"Function Results" on page 65 

Pascal/VS will not permit the assignment 
of a value to a pass by const parameter. 



Example 






type 






CARD 


= record 






SUIT : 


(SPADE, 
HEART, 
DIAMOND, 
CLUB); 




RANK : 


1. .13 




end; 




var 






X, Y, 


Z : REAL 


; 



LETTERS, 
DIGITS, 

LETTER_OR_DIGIT 
: set of CHAR; 



I, J, K 



INTEGER; 



DECK : arrayl" 1. .52 ] of 
CARD; 



X := Y*Z; 




LETTERS 


= C 'A' . . 'Z T ]; 


DIGITS 


= C '0* . . '9* ]; 


LETTER OR DIGIT 


= LETTERS + DIGITS; 


DECKC I 3. SUIT 


= HEART; 


DECKC J ] 


= DECKC K ]; 



Assignment Statements 
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9.3 THE CASE STATEMENT 



Syntax '• 


case- statement 1 
> case >{expr) > Of >-i 






^ r . .. . i >. -^ r i ... j i i 








i ' Li ciiiytiJ 1 laidmuiuiKJ 






^ > <■ 




, ^ 






I- .1 






► Otherwise j Xstatement) j >-i 

L< . < J | 

j 










> end s 



The case-statement provides you with a 
multiple branch based upon the evalu- 
ation of an expression. This statement 
consists of an expression called the 
selector and a list of statements. The 
selector must be of scalar type (except 
type REAL). Each statement is prefixed 
with one or more ranges of the same type 
as the selector; each range is separated 
by a comma. Each range designates one 
or more values called case labels. 



cal/VS evaluates the expression and 
cutes the statement whose case label 
als the value of the expression. If 

case label equals the value of the 
ression, then the otherwise state- 
t is executed if it is present; if 
re is no otherwise statement and the 
ECK CASE option is on, then a runtime 
or will result. If the checking is 

enabled the results will not be pre- 
table. 



The range values of a case-statement may 
be written in any order. However, you 
may not designate the same case label on 
more than one statement. 





Pas 




exe 




equ 




no 




exp 


+ 


men 


+ 


the 


+ 


%CH 


+ 


err 


+ 


not 


+ 


di c 



Example: 
type 

SHAPE = (TRIANGLE, RECTANGLE, 

SQUARE, CIRCLE); 
COORDINATES = 
record 

X,Y : REAL; 
AREA : REAL; 
case S : SHAPE Of 
TRIANGLE: 

(SIDE : REAL; 
BASE : REAL); 
RECTANGLE: 

(SIDEA,SIDEB : REAL); 
SQUARE: 

(EDGE : REAL); 
CIRCL E : 

(RADIUS : REAL) 
end; 
var 

COORD : COORDINATES; 

WlthCOORD do 
case s of 

TRIANGLE: 

AREA := 0.5 * SIDE X BASE; 
RECTANGLE: 

AREA := SIDEA * SIDEB; 
SQUARE: 

AREA := SQR(EDGE); 
CIRCL E : 

AREA := 3.14159 * SQR(RADIUS) 
end; 

The Case Statement 
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Example 5 

type 

RANK = (ACE, 



THREE, FOUR, 
SEVEN, EIGHT, 
JACK, QUEEN, 



TWO, 
FIVE, SIX, 
NINE, TEN, 
KING); 
SUIT = (SPADE, HEART, DIAMOND, CLUB); 
CARD = record 

R : RANK; 
S s SUIT 
end; 
var 

POINTS : INTEGER; 
A CARD s CARD; 





case A CARD.R of 




ACE: 




POINTS := 11; 




TWO. .TEN: 




POINTS := ORD(A CARD.R)+1 


+ 


otherwise 


+ 


POINTS := 10 




end; 




The Case Statement with otherwise 
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9.4 THE COMPOUND STATEMENT 



Syntax 1 



compound-statement ; 
> begin 



-] > (statement}- 

L< . < 



■> end 



The compound-statement serves to brack- 
et a series of statements that are to be 
executed sequentially. The reserved 
words "begin" and "end" delimit the 
statement. Semicolons are used to sepa- 
rate each statement in the list of 
statements. 



Example? 

if A > B then 
begin { swap 



A and B } 



TEMP 
A 
B 
end 



= A; 
= B; 
= TEMP 



Compound Statement 
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9.5 THE CONTINUE STATEMENT 



Syntax* 



continue- statement 
— > continue 



. > 



The continue statement causes a jump to 
the loop-continuation portion ^ of the 
inner-most enclosing for, while, or 
repeat statement. In other words, it is 
a goto to the end of the loop. 

The following examples illustrate how 
the continue statement functions in each 
of the loop constructs. 

while expr do begin 

continue 

(^continue jumps to here*) 
end 



for i "= exprl to expr2 do 
begin 

continue 

(^continue jumps to here*) 
end 



repeat 

continue 

(^continue jumps to here*) 
until expr; 
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9.6 THE EMPTY STATEMENT 



Syntax* 



empty- statement 



The empty-statement is used as a place 
holder and has no effect on the exe- 
cution of the program. This statement 
is often useful when you wish to place a 
label in the program but do not want it 
attached to another statement (such as, 
at the end of a compound-statement). 
The empty-statement is also useful to 
avoid the ambiguity that arises in nest- 
ed i f-statements. You may force a 
single else-clause to be paired with the 



outer nested if-statement (see page 94 ) 
by using an empty-statement. 

if bl then 
if b2 then 

si 

else 



else 
s2 



{ empty-statement } 
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9 .7 THE FOR STATEMENT 



Syntax J 



f 01 — statement ; 
> for >{id}- 



-> : = 



-> (exprJ- 



-> to 

-> downto 



^r 



-> (exprJ- 



->t 



•> do > {statement}- 



The foi — statement repeatedly executes a 
statement while the control variable is 
assigned a series of values. The value 
of the control variable is incremented 
(to) or decremented (dounto) for each 
iteration of the loop. The increment 
(decrement) is computed by the SUCC 
(PRED) function. That is, the control 
variable is changed to the succeeding 
(preceding) value of the type of the 
control variable. 

The foi — statement initializes the con- 
trol variable to the first expression. 
Prior to each execution of the component 
statement, the control variable is com- 
pared less than or equal to (to), or 
greater than or equal to (downto) the 
second expression. Pascal/VS computes 
the value of the second expression at 
the beginning of the foi — statement and 
uses the result for the duration of the 
statement. Thus the ending value 
expression is computed once and can not 
be changed during the foi — statement. 

The control variable must be an automat- 
ic variable which is declared in the 
immediately enclosing routine. Also, it 
may not be subscripted, field qualified 
or referenced through a pointer. The 
type of the control variable must be a 
scalar type. 

The executed statement must not alter 
the control variable. If the control 
variable is altered within the loop, the 
resultant loop execution is not predict- 
able. The value of the control variable 
after the foi — statement i s executed i s 
undefined (you should not expect the 
control variable to contain any partic- 
ular value) . 

Given the following statement 

for I : = exprl to expr2 do stmt 

where I is an automatic scalar variable; 
exprl and expr2 are scalar expressions 
which are type-compatible with I; and 



'stmt' is any arbitrary statement. The 
following compound statement is func- 
tionally equivalent? 



begin 

TEMPI 
TEMP2 



exprl ; 
expr2; 
if TEMPI <= TEMP2 then 
begin 

I := TEMPI; 
repeat 
stmt; 
if I = TEMP2 then 

leave; 
I := SUCC(I) 
until FALSE; {forever} 
end 
end 

where 'TEMPI' and 'TEMP2' are compiler 
generated temporary variables. 

And given the following statement 

for I := exprl downto expr2 do stmt 

where I i s an automatic scalar variable; 
exprl and expr2 are scalar expressions 
which are type-compatible with I; and 
'stmt' is any arbitrary statement. The 
following compound statement is func- 
tionally equivalent: 



begin 






TEMPI := 


exprl ; 




TEMP2 := 


expr2; 




if TEMPI 


>= TEMP2 


then 


begin 






I := TEMPI; 




repeat 






stmt 


■ 




if I 


= TEMP2 


then 


leave; 




I : = 


PRED(I) 




until I 


=ALSE; {f 


orever) 


end 






end 







where 'TEMPI' and 'TEMP2' are compiler 
generated temporary variables. 
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Examples'* 

{ find the maximum INTEGER in } 

{ an array of INTEGERS } 

MAX :™ ACID; 

LARGEST := 1; 

for I ••= 2 to SIZE_OF_A do 

if All] < MAX then 
beg i n 

LARGEST := I; 
MAX := AC 1 3 
end 



{ matrix multiplications C<-A*B } 

for I := 1 to N do 
for J:= l to N do 
begin 

X := 0.0; 

for K := 1 to N do 

X := ACI,KJ * BCK,J3 + X; 
CCI,J] := X 
end 



{ sum the hours worked this Meek } 

SUM := 0; 

for DAY := MON to FRI do 

SUM := SUM + TIMECARDC DAY ] 

The For Statement 
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9.8 the: goto statement 



Syntax* 



goto- statement » . 
> goto Xlabel}- 



The goto-statement changes the flow of 
control within the program. 



Examples ' 



goto 10 

goto ERROR_EXIT 

The Goto Statement 



You may not 
wi th-statement 
goto-statement 
wi th-statement . 



branch into a 

from a 

outside of the 



• For a goto-statement that specifies 
a label that is defined in an outer 
routine, the target label may not be 
defined within a compound statement 
or loop. 

The following example illustrates legal 
and illegal goto-statements. 



The label must be declared within the 
routine that contains the 
goto-statement . 

The following restrictions apply to the 
use of the goto statement* 

• You may not branch into a compound 
statement from a goto-statement 
which is not contained within the 
statement . 

• You may not branch into the then- 
clause or the else-clause from a 
goto-statement that is outside the 
i f-statement . Further, you may not 
branch between the then-clause and 
the else-clause. 

• You may not branch into a case-al- 
ternative from outside the 
case-statement or between case-al- 
ternative statements in the same 
case-statement . 

• You may not branch into a for, 
repeat, or while loop from a goto 
statement that is not contained 
wi thi n the loop. 



procedure goto_example; 
label 

LI, L2, L3, L4 



procedure INNER; 
begin 

goto L4; 
goto L3; 
end; 
begin 

goto L3; 
begin 

L3: 

goto L4; 
goto L3; 
end; 
L4 : if expr then 
Ll: goto L2 
else 

L2: goto Ll 
end; 



{ permitted 

{ not permitted 



{ not permitted 



C permitted 
{ permitted 



{ not permitted 
C not permitted 



Goto Target Restrictions 
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9.9 THE IF STATEMENT 



Syntax^ 


i f-statement ' 
— > if — XexprJ — > then 


> {statement} 










' > elss - 


— > (statement)- 


J 





The i f-statement allows you to specify 
that one of two statements i s to be exe- 
cuted depending on the evaluation of a 
boolean expression. The if-statement is 
composed of an expression and a then- 
clause and an optional else-clause. 
Each clause contains one statement. 

The expression must evaluate to a 
BOOLEAN value. If the result of the 
expression is TRUE, then the statement 
in the then-clause is executed. If the 
expression evaluates to FALSE and there 
is an else-clause, then the statement in 
the else-clause is executed; if there is 
no else-clause, control passes to the 
next statement. 



The following line could be 
interpreted two ways. 

if bl then if b2 then stmtl else stmt2 

Interpretation 1 

(assumed by Pascal/VS) 

if bl then 
begin 

if b2 then 

stmtl 
else 

stmt2 
end 



Example 1 

if A <= B then 
A := (A+1.0)/2.0 

if ODD(I) then 

J— J + l 
else 

J:~J div 2+1 



Interpretation 2 

(incorrect interpretation) 

if bl then 
begin 

if b2 then 

stmtl 
end 
else 

stmt2 



The If Statement 



Nesting of an if-statement within an 
if-statement could be interpreted with 
two different meanings if only one 
statement had an else-clause. The fol- 
lowing example illustrates the condi- 
tion that produces the ambiguity. 
Pascal/VS always assumes the first 
interpretation. That is, the 
else-clauses are paired with the innei — 
most if-statement. 



If the second interpretation is desired 
you could code it as shown or you could 
take advantage of the empty-statement. 

if bl then 
if b2 then 

stmtl 
else 



else 

stmt2 



{ empty statement } 
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+ 9.10 THE LEAVE STATEMENT 

+ 
+ 



Syntax s 



1 eave- statement : 
> leave > 



The leave statement causes an immediate* + 

unconditional exitfrom the innei — most + 

enclosing for, While or repeat loop. + Example^ 

For example, the following two code seg- + 

ments are functionally equivalent 1 + P:=FIRST; 

+ while ponil do 

while expr do + if P3J.NAME = 'JOE SMITH* then 

begin + leave 

... + else 

leave + P:=Pa.NEXT; 

end; + { P either points to the desired } 

+ { data or is nil } 

while expr do + 

begin + The Leave Statement 

... + 

goto lab; + 

end ; + 
lab: ; 
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9.11 THE PROCEDURE CALL 



Syntax 



procedure-call ' 
> (i d: procedure)- 



■> C 



-i > {expr}- 

L< <_ 



> ) 



!3 



The procedure-statement causes the 
invocation of a procedure. When a pro- 
cedure is invoked, the actual parameters 
are substituted for the corresponding 
formal parameters. The actual parame- 
ters must be conformable to the formal 
parameters. The rules for expression 
conf ormabi 1 i ty are given in "Type Com- 
patibility" on page 31. 

Parameters which are passed by 
read/write reference (var) may only be 
variables, never expressions or con- 
stants. Also, fields of a packed record 
may not be passed by var. Parameters 
passed by value or read-only reference 
(const) may be any expression. 

A procedure invocation that requires no 
parameters does not use the list of 
operands. 



Example : 

TRANSPOSE(AN_ARRAY, 

NUM-0F_R0WS, 
NUM-0F_C0LUMNS); 

MATRIX_ADD(A_ARRAY, 
B_ARRAY, 
C_ARRAY, 
N,M); 

XYZCI+J, K*L) 

Procedure Invocations 
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9.12 THE REPEAT STATEMENT 



Syntax 



r epeat-statement 
> repeat 



T^ 



->{statement}- 
. < 



-> Until >{expr} 



The statements contained between the 
statement delimiters repeat and until 
are executed until the control expres- 
sion evaluates to TRUE. The control 
expression must evaluate to type 
BOOLEAN. Because the termination test 
is at the end of the loop, the body of 
the loop is always executed at least 
once. The structure of the 
repeat-statement allows it to act like a 
compound statement in that it encloses a 
list of statements. 



Example^ 



repeat 



= I mod J; 
= J; 
= K 



until J = 

The Repeat Statement 
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+ 9.13 THE RETURN STATEMENT 

+ 
+ 



Syntax 



ret urn- statement « 
— > return > 



+ 

+ The return-statement permits an exit + Pascal/VS will insure that a function 

+ from a procedure or function. This + has been assigned a value prior to the 

+ statement is effectively a goto to an + return from the function. If a value 

+ imaginary label after the last statement + has not been assigned, a runtime error 

+ within the routine being executed. If + will occur. 

+ the JiCHECK FUNCTION option is enabled, 
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9.14 THE UHILE STATEMENT 



Syntax 1 



whi l«-statement ; 
> While Xexpr} > do Xstatement)- 



The while-statement allows you to speci- 

fy a statement that is to be executed 
while & control expression evaluates to Example J 
TRUE. The control expression must eval- 
uate to type BOOLEAN. The expression is 
evaluated prior to each execution of the 
statement. 



{ Compute the decimal size 


of N 


} 


{ assume N >= 1 






} 


I := 0; 








J := 1; 








while N > 10 do 








begin 








I := I + 1; 








J := J * 10; 








N := N div 10 








end 








(lis the power of 


ten of 


the 


} 


{ original N 






} 


( J is ten to the I 


power 




} 


{ 1 <= N <= 9 






} 



The While Statement 
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9.15 THE UITH STATEMENT 



Syntax 



ui th-statement 
> with 



17 



-> (vari able) 

< 



-> do 



-> {statement}- 



The wi th-statement is used to simplify 
references to a record variable by elim- 
inating an addressing description on 
every reference to a field. The 
wi th-statement makes the fields of a 
record available as if the fields were 
variables within the nested statement. 

The wi th-statement effectively computes 
the address of a record variable upon 
executing the statement. Any modifica- 
tion to a variable which changes the 
address computation will not be 
reflected in the pre-computed address 
during the execution of the with state- 
ment. The following example illustrates 
thi s poi nt . 



var A : arrayC 1. .10 ] of 
record 

FIELD : INTEGER 
end; 



unavailable in a with statement that 
specifies the record. 



I 


••=1; 




with 


AC I ] do 




beg 


in 




K : 


= FIELD; 




I : 


= 2; 




K : 


= FIELD; 



{Ks=AC13. FIELD) 
{K:=AL13. FIELD} 



end; 



The Address of A i s Computed 
on Entry to the Statement 



The comma notation of a wi th-statement 
is an abbreviation of nested 
wi th-statements. The names within a 
wi th-statement are scoped such that the 
last with statement will take 
precedence. A local variable with the 
same name as a field of a record becomes 



Example 1 




type 

EMPLOYEE = 
record 

NAME : STRINGC20); 
MAN NO : 0. .999999; 
SALARY : INTEGER; 
ID NO : 0. .999999 
end; 


var 

FATHER : 3> 


EMPLOYEE; 


withFATHERa 
begin 

NAME := 
MAN NO := 
SALARY := 
ID_N0 := 

end 


do 

'SMITH'; 
666666; 

WEEKLY SALARY; 
MAN NO 



is equivalent to: 

begin 

FATHERa.NAME 
FATHERa.MAN_NO 
FATHER3. SALARY 
FATHERa.ID_NO 
end 



:= 'SMITH'; 

= 666666; 

= WEEKLY_SALARY; 

:= FATHER3.MAN NO 



Note: The variable FATHER is of type 
pointer to EMPLOYEE, thus the pointer 
notation must be used to specify the 
record pointed to by the pointer. 

The With Statement 
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Example: 






V ' record 






V2 : INTEGER; 


VI : record 


A : REAL end; 


A : INTEGER 




end; 






A : CHAR; 






with V,V1 do 






beg i n 






V2 := 1; 


{ 


V.V2 := 1 J 


A := 1.0; 


{ 


V.V1.A := 1.0 J 


V.A := 1 


{ 


V.A := 1 } 




£ 


CHAR A is not } 




{ 


available here) 


end; 






A := 'A'; 


{ 


CHAR A is now } 



With Statements Can Hide a Variable 



Statements 
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10.0 I/O FACILITIES 



Input and output are done using the file 
data structure. The Pascal/VS Program- 
mer's Guide provides more detail on how 
to use the I/O facilities in a specific 
operating system. Pascal/VS provides 
predefined routines which operate on 
variables of a file type. The routines 
are : 



RESET 

REWRITE 

READ 

WRITE 

GET 

PUT 

EOF 

CLOSE 

UPDATE 

TERMIN 

TERMOUT 

PDSIN 

PDSOUT 

SEEK 

To facilitate input and output oper- 
ations that require conversion to and 
from a character representation, the 
predefined file type TEXT is provided. 
The type TEXT is predefined as a file of 
CHAR. Each GET and PUT transfers one 
CHAR of information. There are addi- 
tional predefined routines that may be 
executed on variables of type TEXT that 
perform the required conversions. 



• READl 


N 


• WRITELN 


• EOLN 




• PAGE 




• COLS 





10.1 RESET PROCEDURE 



Open a Fi le for Input 



Def i ni t i on • 

procedure RESETC 

F • filetype; 
const S : STRING); 



Where- 

F is a variable of a file type 
S i s an optional string value that 
specifies options 



RESET positions the file pointer to the 
beginning of the file and prepares the 
file to be used for input. After you 
invoke RESET the file pointer is point- 
ing to the first data element of the 
file. If the file is associated with a 
terminal, the terminal user would be 
prompted for data when the RESET is exe- 
cuted. This procedure can be thought of 
as: 



Closing the file (if open). 

Rewinding the file. 

Opening the file for input. 

Getting the first component of the 
file. 



1. 
2. 
3. 
<t. 

The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide , order 
number SH20-6162 which describes the 
options that are available. 



I/O Facilities 
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10.2 REURITE PROCEDURE 



Open a File for Output 



Def i ni ti on ' 

procedure REWRITEC 

F : f i letype; 
const S : STRING); 



Where? 

F is a variable of a file type 
S is an optional string value that 
specifies options 



10.3 TERMIN PROCEDURE 



Open a File for Input from the Terminal 



Def i ni t i on s 








procedure TERMINC 








F : TEXT; 






const S 


: STRING); 






Where-* 








F is a variable of type 


TEXT 




S i s an opt 


onal string 


value 


that 


speci f i es 


opt i ons 







REWRITE positions the file pointer to 
the beginning of the file and prepares 
the file to be used for output. This 
procedure can be thought of as' 

1. Closing the file (if open). 

2. Rewinding the file. 

3. Opening the file for output. 

The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Progra m mer's G uide , order 
number SH20-6162 which describes the 
options that are available. 



TERMIN opens the designated file for 
input from the users terminal. The 
string parameter is used to specify any 
special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guid e, order 
number SH20-6162 which describes the 
options that are available and operating 
system dependencies on this procedure. 
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10.4 TERMOUT PROCEDURE 



Open a File for Output from the Terminal 



Def i ni t i on' 






procedure TERMOUT ( 

F : TEXT; 
const S : STRING); 






Where! 






F is a variable of type 
S is an optional string 


TEXT 
value 


that 


specifies options 







TERMOUT opens the designated file 
output to the users terminal, 
string parameter is used to specify 
special file dependent options to 
used in opening the file. Consult 
Pascal/V S Programmer's Guide , 



for 
The 
any 
be 
the 
order 



10. S PDSIN PROCEDURE 



Open a File for Input from a PDS 



Def i ni t i on '• 

procedure PDSINC 

F J filetype; 
const S : STRING); 



UIhere : 

F is a variable of a file type 
S is a string value that specifies 
opt i ons 



number SH20-6162 which describes the 
options that ar& available and operating 
system dependencies on this procedure. 



PDSIN opens a member in a 
titioned) file for input. 



library (pai — 



The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide > order 
number SH20-6162 which describes the 
options that are available. 
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10.6 PDSOUT PROCEDURE 



Open a File for Output to a PDS 



Def i ni ti on- 

procedure PDSOUTC 

F ' filetype; 
const S : STRING); 



Ulhero- 

F is a variable of a file type* 
S is a string value that specifies 
opti ons. 



PDSOUT opens a member in a library (pai — 
titioned) file for output. 

The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guid e> order 
number SH20-6162 which describes the 
options that are available. 



10.7 UPDATE PROCEDURE 



Open a File for Input and Output 



Def i ni ti on ; 

procedure UPDATEC 

F : f i letype; 
const S : STRING); 



Ulhere : 

F is a variable of a file type, 
S is a string value that specifies 
opti ons. 



UPDATE opens a file for both input and 
output (updating). A PUT operation 
replaces a file component obtained from 
a preceding GET operation. The exe- 
cution of UPDATE causes an implicit GET 
of the first file component (as in 
RESET). The following program fragment 
illustrates the use of UPDATE. 



var 

FILEVAR 



file of 

CNT 
end; 



record 

INTEGER; 



UPDATE(FILEVAR); (open and get } 
while not EOF(FILEVAR) do 
begin 

FILEVARa.CNT := FILEVARS) .CNT + 1 ; 
PUT(FILEVAR); (update last elem} 
GET(FILEVAR); {get next elem } 
end; 



The string parameter is used to specify 
any special file dependent options to be 
used in opening the file. Consult the 
Pascal/VS Programmer's Guide , order 
number SH20-6162 which describes the 
options that are available. 
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10.8 CLOSE PROCEDURE 





Close 


a Fi le 




Def i ni ti or 


: 






procedure 


CLOSEC 
F : f 


i letype) \ 




Where J 








F is a variable o 


f a file 


type 



CLOSE closes a file; all processing to 
the file is completed. You must open 
the file prior to using it again. 



10.9 GET PROCEDURE 



Position a File to Next Element 



Def i ni ti on : 

procedure GETC F : fi letype ); 

Where : 

F is a variable of a file type, 



GET positions the file pointer of a file 
(previously opened for input) to the 
next component in the file. For 
example, if the file is defined as an 
array of 80 characters, then each GET 
returns the next 80 character record. A 
GET invocation on a file of type TEXT 
returns a single character. 
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10.10 PUT PROCEDURE 



Position a File to Next Element 



Def i nition: 










procedure PUT( 


F : 


fi 


letype ); 


Where? 










F is a variable 


of 


a 


fi 


le type. 



PUT releases the current component of 
the file variable by effectively writing 
the component to the associated physical 
file. A call to PUT with a file of type 
TEXT transfers a single character. The 
file must have been previously opened 
for output. 



10.11 SEEK PROCEDURE 



Posi ti on 


a File to a Speci 


fied El 


ement 


Def i ni t 


i on? 






procedure SEEKC 








F s fi letype; 








N : INTEGER); 






Where ' 








F i s a 


variable of a file type, 




N i s an 


component number 


of 




the f 


i le. 







SEEK specifies the number of the next 
file component to be operated on by a 
GET or PUT operation. File components 
are origined at 1. The SEEK procedure 
is not supported for TEXT files. The 
file specified in the SEEK procedure 
must have been opened by RESET, REWRITE 
or UPDATE. For more infomation, consult 
the Pascal/VS Programmer's Guide , order 
number SH20-6162. 
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10.12 EOF FUNCTION 



10.13 READ AND READLN [TEXT FILES) 



Test 


Fi le 


for 


End 


Of 


File 


Def i ni t i on: 










function 


EOFCF. 


f i letype) •' 


BOOLEAN; 


function 


E0F:B00LEAN; 






Where: 












F i s a variable of 


a fi 


le 


type. 



Read Data from TEXT File 



EOF is a BOOLEAN valued function which 
returns TRUE if the end-of-f i le cond- 
ition is true for the file. This condi- 
tion occurs in an input file when an 
attempt i s made to read past the last 
record element of the file. If the file 
is open for output, this function always 
returns TRUE. 

If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 



Example: 

{ The following will read all of } 

{ the records from File SYSIN } 

{ and write then out to SYSOUT } 



type FREC = 

record 

A,B 
end; 



INTEGER 



var 

SYSIN, 
SYSOUT: 



file Of FREC; 



begin 

RESET(SYSIN); 
REWRITE(SYSOUT); 
While not EOF(SYSIN) do 
begin 

SYS0UT3> := SYSIN3; 
PUT(SYSOUT); 
GET(SYSIN) 
end; 
end; 



Def i ni ti on: 




procedure READC 

f : TEXT; 


V 


: see below) ; 


procedure READLNC 

f : TEXT; 


V 


: see below); 


Where: 




f is an optional text file 

that is to be used for input. 


v is one or more variables, 
each must be one of the 
following types: 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- SHORTREAL 

- STRING 

- packed array of CHAR 



The READ procedure reads character data 
from the TEXT file f. READ converts 
character data to conform to the type of 
the operand. The file parameter is 
optional; the default file is INPUT. 

READLN positions the file at the begin- 
ning of the next line. You may use more 
than one variable on each call by sepa- 
rating each with a comma. The effect is 
the same as multiple calls to READ. 



READ(f,vl,v2) 
i s equi valent to: 



begin 

READ(f,vl); 
READ(f,v2) 
end 



and 



READLN(f,vl,v2,v3) 
is equivalent to: 

begin 

READ(f,vl); 

READ(f,v2); 

READ(f ,v3); 

READLN(f); 
end 

Multiple Variables on READ or READLN 
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Reading INTEGER Data 



INTEGER data from a TEXT file is read by 
scanning off leading blanks, accepting 
an optional sign and converting all 
characters up to the first non-numeric 
character or end-of-line. 



var 

I,J: INTEGER; 

S: STRING(IOO); 

CH: CHAR; 

CC-- packed array El.. 10 3 of CHAR; 

F: TEXT; 



Reading CHAR Data 

A variable of type CHAR is assigned the 
next character in the file. 



Reading STRING Data 

Characters are read into a STRING vari- 
able until the variable has reached its 
maximum length or until the end of the 
1 i ne is reached. 



Reading REAL (SHORTREAL) Data 

REAL (SHORTREAL) data is read by scan- 
ning off leading blanks, accepting an 
optional sign and converting all charac- 
ters up to the first non-numeric charac- 
ter not conforming to the syntax of a 
REAL number. 



Reading packed array of CHAR Data 

If the variable is declared as a 
'packed arrayCL.n] of CHAR 1 , charac- 
ters are stored into each element of the 
array. This is equivalent to a loop 
ranging from the lower bound of the 
array to the upper bound, performing a 
read operation for each element. If the 
end-of-line condition should become 
true before the variable is filled, the 
rest of the variable is filled with 
blanks. 

Consult the Programmer's Guide for more 
details on the use of READ and READLN. 



READLN(F,I,J,CH,CC,S); 

assume the data is : 

36 24 ABCDEFGHIHKLMNOPQRSTUVWXYZ 

the variables would be assigned: 



I 


36 


J 


24 


CH 


t » 


CC 


'ABCDEFGHIJ 1 


S 


'KLMNOPQRSTUVWXYZ' 


LENGTH(S) 


16 



The READ Procedure 



Reading Variables with a Length 

You may optionally qualify a variable of 
READ with a field length expression^ 

READ(f,v:n) 

where "v" is the variable being read and 
"n" is the field length expression. 

This expression denotes the number of 
characters in the input line to be proc- 
essed for that variable. If the number 
of characters indicated by the field 
length is exhausted during a read opera- 
tion, then the reading operation will 
stop so that a subsequent read will 
begin at the first character following 
the field. If the reading completes 
prior to processing all characters of 
the field then the rest of the field is 
ski pped. 



110 



Pascal/VS Reference Manual 



var 

I, J: INTEGER; 

S: STRINGUOO); 

CH: CHAR; 

CC: packed arrayCl. .10]- of CHAR; 

F: TEXT; 



READIN(F,I:4,J:10,CH:J,CC,S); 

assume the data is: 

36 24 ABCDEFGHIKLMNOPQRSTUVWXYZ 

the variables Mould be assigned: 



I 


36 


J 


<t 


CH 


? I f 


CC 


•NOPQRSTUVW 


S 


'XYZ 1 


LENGTH(S) 


3 



The READ Procedure with Lengths 



10.14 READ (NON-TEXT FILES) 



Read Data from Non-TEXT Files 



Def i ni ti on 








procedure 


READC 

f : file of 

v : t); 


t; 




Where 1 
f i s an arbitrary f i 1 
visa variable whose 
the f i le component 


e variable. 

type matches 
type of f 



Each call to READ will read one file 
element from file 'f f and assign it to 
variable 'v'. If the file is not open, 
the READ procedure will open it prior to 
assigning to the argument. 

READ(f,v) is functionally equivalent to 
the following compound statement 1 



begin 



v ' = f3J; 



GET(f) end 



For more details consult the Program- 
mer' s Gui de. 
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10.15 URITE AND HRITELN (TEXT FILES) 



Write Data to File 



Def i ni t i on : 

procedure WRITE( 

f : TEXT; 

e •* see below); 

procedure WRITELNC 
f : TEXT; 
e '• see below); 

Where? 
f i s an optional TEXT file 

var i able, 
e i 5 an expression of one of the 

following types: 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- SHORTREAL 

- BOOLEAN 

- STRING 

- packed array[l..n] of CHAR 
Pascal/VS accepts a special para- 
meter format which is only 
allowed in the WRITE routine 

for TEXT files. 

See the following description. 



The WRITE procedure writes character 
data to the TEXT file specified by f. 
The data is obtained by converting the 
expression e into an external form. The 
file parameter is optional; if not spec- 
ified, the default file OUTPUT is used. 

WRITELN positions the file to the begin- 
ning of the next line. WRITELN is only 
applicable to TEXT files. You may use 
more than one expression on each call by 
separating each with a comma. The 
effect is the same as multiple calls to 
WRITE. 



WRITE(f,el,e2) 
is equivalent to: 

begin 

WRITE(f,el); 
WRITE(f,e2) 
end 

and 

WRITELN(f,el,e2,e3) 

is equivalent to: 

begin 

WRITE(f,el); 

WRITE(f,e2); 

WRITE(f,e3); 

WRITELN(f); 
end 

Multiple Expressions on WRITE 



Pascal/VS supports a specialized form 
for specifying actual parameters on 
WRITE and WRITELN to TEXT files. This 
provides a means by which you can speci- 
fy the length of the resulting output. 
Each expression in the WRITE procedure 
call may be represented in one of three 
forms' 



1. e 

2. e : lenl 

3. e : lenl : len2 



The expression e may be of any of the 
types outlined above and represents the 
data to be placed on the file. The data 
i s converted to a character represen- 
tation from the internal form. The 
expressions lenl and len2 must evaluate 
to an INTEGER value. 

The expression lenl supplies the length 
of the field into which the data is 
written. The data is placed in the 
field justified to the right edge of the 
field. If lenl specifies a negative 
value, the data is justified to the left 
within a field whose length is 
ABSClenl). 

The len2 expression (form 3) may be 
specified only if e is an expression of 
type REAL. 

If lenl is unspecified (form 1) then a 
default value is used according to the 
table below. 
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TNL SN20-4446 (31 December 81) to SH20-6 168-1 



type of 
expression e 



INTEGER 

REAL 

SHORTREAL 

CHAR 

BOOLEAN 

STRING 

array of CHAR 



default value 
of lenl 



( E notation ) 



12 
20 
20 
1 

10 

LENGTH( expressi on) 
length of array 



Default Field Width on WRITE 



Writing INTEGER Data 

The expression lenl represents the mini- 
mum width of the field in which the 
integer is to be placed. The value is 
convertcid to character format and placed 
in a field of the specified length. If 
the field is shorter than the size 
required to represent the value* the 
length of the field will be extended. 



Examples '• 
Call: 
WRITE(1234:6) 
WRITE(1234:-6) 
WRITE(1234:1) 
WRITE(1234) 
WRITE(1234:-3) 

Writing CHAR Data 

The value of lenl 
the width of the 
character is to be 
not specified, a 
assumed. If lenl i 
the character will 



Result: 

' 1234' 

'1234 ' 

'1234' 

1234' 

'1234' 



is used to indicate 

field in which the 

placed. If lenl is 

field wi dth of 1 is 

s greater than 1 

be padded on the 



with blanks; if lenl is negative, 
the character will be padded on 
ri ght . 



then 
left 
then 
the 



Example 5 

call: 

WRITEC 'a' 
WRITECa' 



Result: 



6) 
-6) 



Writing REAL Data 



REAL expressions may be printed with any 
one of the three operand formats. If 



lenl is not specified Cform 1), the 
result will be in scientific notation in 
a 20 character field. 

If lenl is specified and len2 is not 
(form 2), the result will be in scien- 
tific notation but the number of charac- 
ters in the field will be the value of 
lenl. 

If both lenl and len2 are specified 
(form 3), the data will be written in 
fixed point notation in a field with 
length lenl; len2 specifies the number 
of digits that will appear to the right 
of the decimal point. The REAL expres- 
sion is always rounded to the last digit 
to be pri nted. 

If lenl is not large enough to fully 
represent the number, it will be 
extended appropriately. 



Examples: 
Call: 
WRITE(3. 14159:10) 



Result: 



' 3.142E+00' 



WRITEC3. 14159) 

' 3.1415900000000E+00' 



WRITE(3. 14159:10:4) 



3.1416' 



Writing BOOLEAN Data 

The expression lenl is used to indicate 
the width of the field in which the boo- 
lean is to be placed. If the width is 
less than 6, then either a 'T' or 'F' 
will be printed. Otherwise, 'TRUE' or 
'FALSE' will be sent to the file. The 
data is placed in the field and justi- 
fied according to the previously 
rules. 



stated 



Examples: 

Call: Result: 

WRITE(TRUE:10) ' TRUE' 

WRITE(TRUE:-10) 'TRUE » 

WRITE(FALSE:2) ' F' 

Writing STRING Data 

The second expression is used to indi- 
cate the width of the field in which the 
string is to be placed. The data is 
placed in the field and 
according to the 
rules. 



just i f i ed 
previously stated 
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Examples 1 

Call: Result: 

WRITE('abcd':6) ' abed' 

+ WRITECabcd' :-6) f abcd ' 

WRITE('abcd':2) 'ab' 

WRITE('abcd') 'abed' 



Writing Packed Array of CHAR Data 

The second expression is used to indi- 
cate the width of the field in which the 
array is to be placed. The data is 
placed in the field and justified 
according to the previously stated 
rules. 

Examples-' 

var 

A : packed 

arrayC 1. .4] of CHAR; 



'abed' ; 



10.16 URITE (NON-TEXT FILES) 



Write Data to Non-TEXT Files 



Def i ni t i on : 

procedure WRITEC 

f : file of t; 
e : t); 

Where : 
f i s an arbitrary file variable, 
e i s an expression whose type 

matches the f i le component 

type of f 



Each call to WRITE will write the value 
of expression e to file 'f. 

WRITE(f,e) is functionally equivalent 
to the following compound statement: 



begin 



fa : = e; 



PUT(f) end 



For more details consult the Program- 
mer* s Gui de. 



Call: 
WRITE(A:6) 
WRITE(A:-6) 
WRITE(A:2) 
WRITE(A) 



Result: 

' abed' 
'abed ' 
'ab' 
'abed' 
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10.17 EOLN FUNCTION 



10.18 PAGE PROCEDURE 



Test a 


File 


for End 


of 


Li ne 


Def i ni t i on 


• 










function 


E0LN( 


f : 


TEXT 


): 


BOOLEAN; 


function 


EOLN'- 


BOOLEAN; 






Where* 












f is a TEXT fi 


le 


set to 






i nput . 













The EOLN function returns a BOOLEAN 
result of TRUE if TEXT file f is posi- 
tioned to an end-of-line character; 
otherwise, it returns FALSE. 



Force 


Skip 


to Next 


Page 


Def i ni ti on : 








procedure 


PAGEC 


var f: 


TEXT ); 


Where 5 








f is a TEXT file set to 




output . 









This procedure causes a skip to the top 
of the next page when the text-file is 
printed. The file parameter is optional 
and defaults to the standard file vari- 
able OUTPUT. 



If EOLN(f) is true, then fa has the val- 
ue of a blank. That is, when EOLN is 
TRUE the file is positioned to a blank. 
This character is not in the file but 
will appear as if it were. In many 
applications the extra blank will not 
affect the result; in those instances 
where the physical layout of the data is 
significant you must be sensitive to the 
EOLN condi t i on . 

If the file variable F is omitted, then 
the function assumes the predefined file 
INPUT. 
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+ 10.19 COLS FUNCTION 

+ 
+ 

+ Determine Current Column 
+ 



Def i ni t i on 


: 








function 
var f: 


COLSC 
TEXT 


) 


s INTEGER; 


Where: 










f is ( a TEXT fil 
output. 


e 


set 


to 



This function returns the current column 
number (position of the next character 
to be written) on the output file desig- 
nated by the file variable. You may 
force the output to a specific column 
with the following code: 

if TAB > COLS(F) then 

WRITECF,' »:TAB-C0LS(F)); 



The file name is 
COLS procedure. 



never defaulted on the 
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11.0 EXECUTION LIBRARY FACILITIES 



The runtime library consists of those 
routines that are predefined in 
Pascal/VS. In addition to the routines 
described in this chapter, Pascal/VS 
provides routines with which to do input 
and output. Consult the I/O chapter for 
a description of those routines. The 
predefined procedures and functions 
are • 



ABS Function 
ARCTAN Function 
CHR Functi on 
CLOCK Function 
COMPRESS Function 
COS Function 
DATETIME Procedure 
DELETE Function 
DISPOSE Procedure 
EXP Function 
FLOAT Function 
INDEX Function 
HALT Procedure 
HBOUND Function 
HIGHEST Function 
LBOUND Function 
LENGTH Function 
LN Function 
LOWEST Function 
LTRIM Functi on 
MARK Procedure 
MAX Function 



MAXLENGTH Function 
MIN Function 
NEW Procedure 
ODD Function 
ORD Function 
PACK Procedure 
PARMS Function 
PRED Function 
RANDOM Function 
READSTR Procedure 
RELEASE Procedure 
RETCODE Procedure 
ROUND Function 
Scalar Conversion 
SIN Function 
SIZEOF Function 
SQR Function 
SQRT Function 
STR Function 
SUBSTR Function 
SUCC Function 
TRUNC Function 
TRIM Function 
TOKEN Function 
TRACE Procedure 
UNPACK Procedure 
WRITESTR Procedure 
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11.1 MEMORY MANAGEMENT ROUTINES 

These routines provide means by which you can control the allocation of dynamic vai — 
i ables. 



+ 11.1.1 MARK Procedure 

+ 
+ 

+ Mark Heap 

+ 



Def i ni t i on : 








procedure MARK( 








var P : 


poi nter 


); 


Where ' 








P is a poi nter 


to 


any 


type 



+ 11.1.2 RELEASE Procedure 

+ 
+ 
+ Release Heap 

+ 



Def i ni t i on - 






procedure RELEASEC 




var P : 


poi nter 


>; 


Where : 






P is a poi nter 


to any 


type. 



The MARK procedure allocates a new area 
of memory from where dynamic variables 
are to be allocated. Such an area is 
called a heap . . The predefined proce- 
dure NEW allocates a dynamic variable 
from the most recently created heap. 
The predefined procedure DISPOSE 
de-allocates a dynamic variable from the 
heap. 

RELEASE is the complementary procedure 
which destroys a heap. Heaps are cre- 
ated and destroyed in a stack-like fash- 
i on . 

MARK does not allocate dynamic 
variables. The pointer variable passed 
as parameter P is set to the address of 
the associated heap control block; thus, 
the returned pointer must not be used as 
the base of a dynamic variable. 



RELEASE frees one or more heaps that 
were previously allocated by calls to 
MARK. (See the description of MARK for 
a definition of "heap".) The parameter 
of RELEASE must contain the address 
returned by a previous call to MARK; it 
is through this parameter that the heap 
i s i dent i f i ed. 

RELEASE frees all heaps that were allo- 
cated since the corresponding MARK was 
executed. Thus, heaps are created and 
destroyed in a stack-like manner. 

When a heap is freed, all of the dynamic 
variables which were allocated from the 
heap are also freed. As a result, 
RELEASE is a means for disposing of many 
dynamic variables at one time. 4 



RELEASE sets its parameter variable 
to nil. 



(P) 



Pointers which reference dynamic variables of a heap are no longer defined 
when the heap is freed. Subsequent uses of such pointer values may cause 
unpredictable results. 
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type 

MARKP = 
LINKP = 
LINK = 


aiNTEGER; 
3JLINK; 
record 

NAME: STRINGC30); 
NEXT: LINKP 
end; 




var 

P : 
Ql, 
Q2, 
Q3 

begin 


MARKP; 
LINKP; 










MARK(P) 


; 










NEW(Ql) 
NEWCQ2) 
NEWCQ3) 


; 
; 
; 










£ Frees Ql, Q2 
RELEASE(P); 


and 


Q3 




} 


end; 












Exam 


iple of 


MARK 


and 


RELEASE 
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118.2 Pascal/VS Reference Manual 



11.1.3 NEW Procedure 



Allocate Dynamic Variable 



Def i ni t i on • 


form 1 : 




procedure 


NEWC 


var P 


'• pointer ); 


form 2' 




procedure 


NEWC 


var PI 


J pointer; 




tl,t2... : scalar); 


form 3 : 




procedure 


NEWC 


var SP 


: STRINGPTR; 


I. EN 


: INTEGER; 


Where: 




P is a pointer to any type 


except 


a dynamic array. 


PI is a pointer to a record 


type wi 


th variants 


SP is a STRINGPTR 


tl,t2... are scalar constants 


representing tag fields 


LEN i s an 


integer valued expression 



The NEW 
variable 
sets the 
able. 

form 1 



procedure allocates a dynamic 
from the most recent heap and 
pointer to point to the vari- 



The first form of procedure NEW allo- 
cates the amount of storage that i s nec- 
essary to represent a value of the type 
to which the pointer refers. If the 
type of the dynamic variable is a record 
with a variant part, the space allocated 
is the amount required for the record 
when the largest variant is active. 



type 






LINKP 


= 3LINK; 




LINK = 


record 






NAME: 


STRINGC30) 




NEXT: 


LINKP 




end; 




var 






P, 






HEAD : 


LINKP; 





begin 



NEWCP); 
with pa do 
begin 

NAME := »»; 
NEXT := HEAD; 
end; 
HEAD := P; 



end; 



Example of using Simple Form 
of Procedure NEW 



form 2 

The second form is used to allocate a 
variant record when it is known which 
variant Cand sub-variants) will be 
active, in which case the amount of 
storage allocated will be no larger than 
necessary to contain the variant speci- 
fied. The scalar constants are tag 
field values. The first one indicates a 
particular variant in the record which 
will be active; subsequent tags indicate 
active sub-variants, sub-sub-variants, 
and so on. 

Note : This proc e dure does not set tag 
f i elds. The tag list only serves to 
indicate the amount of storage required; 
it is the programmer's responsibility to 
set the tag fields after the record is 
allocated. 
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11.1.4 DISPOSE Procedure 



type 

AGE = 0. .100; 
RECP = 3REC; 
REC = 
record 

NAME: STRINGC30); 
case HOW_OLD: AGE 
0. .18: 

(FATHER: RECP) 
19. .100: 

(case MARRIED: 
TRUE: (SPOUSE 
FALSE: () 
) 
end; 



of 



BOOLEAN 
RECP) 



of 



var 

P 

begin 



RECP; 



NEW(P,18); 

with pa do begin 

NAME := 'J. B. SMITH, JR 

HOW_OLD := 18; 

NEW(FATHER,54,TRUE); 

with FATHERS do begin 
NAME := 'J. B. SMITH'; 
HOW_OLD := 54; 
MARRIED := TRUE; 
NEW(SPOUSE,50,TRUE); 

end {with fathera}; 
end (wi th pa> ; 



end; 



Using NEW for Allocating 
Records with Variants 



form 3 

The thi rd form is used to allocate a 
string whose maximum length is known 
only during program execution. The 
amount of storage to be available for 
the string is defined by the required 
second parameter. See "The Type 
STRINGPTR" on page 58. 



De-allocate Dynamic Variable 



Def i ni t i on: 

procedure DISPOSEC 

var P : pointer); 



Uihere : 

P is any pointer type. 



DISPOSE returns storage for a dynamic 
variable. You may de-allocate a dynamic 
variable from any heap. This procedure 
only returns the storage referred to by 
the pointer and does not return any 
storage which the dynamic variable ref- 
erences. That is, if the dynamic 
variable is part of a linked list, you 
must explicitly DISPOSE of every element 
of the list. DISPOSE sets the pointer 
to nil. If you have other pointers 
which reference the same DISPOSEd dyna- 
mic variable, then it is your 
responsibility not to use these pointers 
because the dynamic variable which they 
represented is no longer allocated. 
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11. 2 DATA MOVEMENT ROUTINES 



These routines provide you with convenient ways to handle large amounts of data 
movement efficiently. 



11.2.1 PACK Procedure 



11.2.2 UNPACK Procedure 



Copy Unpacked ^rray to Packed Array 



Copy Packed Array to Unpacked krray 



Def i ni ti on' 

procedure PACKC 
const SOURCE 
INDEX 
var TARGET 

Where' 



array-typei 

i ndex_of_source; 

pack_array_type) 



SOURCE is an array. 

INDEX is an expression which is 

compatible with the index 

of SOURCE. 
TARGET is a variable of type packed 

array. 



This procedure fills the target array 
with elements from the source array 
starting with the index I where the tai — 
get array is packed. The types of the 
elements of the two arrays must be iden- 
tical. This procedure operates as: 

Given* 

A ' arraytm. .n] of T; 

Z s packed array[u..v] of T; 

Call: 

PACKCA, I, Z); 

Operati on : 
k := I; 

for j := LBOUND(Z) to HBOUND(Z) do 
begin 

ZCjJ := ACk]; 
k — : SUCC(k) 
end; 

Where: 

j and k are temporary variables. 



It i s an error if the number of elements 
in Z is greater than the number of ele- 
ments in A starting with the Ith element 
to the end of the array. 



Def ini t 


i on : 


procedure UNPACKC 

var SOURCE : pack array_type; 
const TARGET : array-type; 

INDEX : index_of_target); 


Where: 




SOURCE 
TARGET 
INDEX 


is a packed array, 
is a variable of type array, 
is an expression which is 
compatible with the index 
of TARGET. 



This procedure fills the target array 
with elements from the source array 
where the source array is packed. The 
type of the elements of the two arrays 
must be identical. This procedure oper — 
ates as : 

Gi ven: 

A : arrayCm. .n] of T; 

Z : packed array[u..v3 of T; 

Call: 

UNPACKCZ, A, I); 

Operati on-' 
k := I; 
for j := LBOUND(Z) to HBOUND(Z) do 

begin 

ACk] := ZCj]; 

k := SUCC(k) 

end; 

Where: 

j and k are temporary variables. 



It i s an error if the number of elements 
in Z is greater than the number of ele- 
ments in A starting with the Ith element 
to the end of the array. 



Execution Library Facilities 



121 



11.3 DATA ACCESS ROUTINES 



These routines provide you a means to inquire about compile and run time bounds and 
values. 



+ 11.3.1 LOUEST Function 

+ 
+ 
+ Lowest Value of a Scalar 

+ 





Def i ni ti on : 




function 


LOWESTC 

S : 


scalai — type) 
scalar; 


Where- 






S is an identifier that has been 
declared as a scalar type, or 
a variable which is of a scalar 

type. 



This function returns the lowest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function is 
the lowest value that a variable of that 
type may be assigned. If the operand is 
a variable* the value of the function is 
the lowest value that the variable may 
be assi gned. 

If the argument S refers to a 
record-type which has a variant part, 
and if no tag values are specified, then 
the storage required for the record with 
the largest variant will be returned. 



Example ; 

type 

DAYS 

SMALL 
var 
I 
J 



= (SUN, MON, 
THU, FRI, 
= .. 31; 

: INTEGER; 
•* .. 255; 



TUES, 
SAT); 



WED, 



LOWEST(DAYS) is SUN 

LOWEST(BOOLEAN) is FALSE 

LOWEST(SMALL) is 

LOWEST(I) is MININT 

LOWEST(J) is 

The LOWEST Function 



Highest Value of a Scalar 



Def i ni ti on : 




function HIGHESTC 

S : 


scalai — type) 
scalar; 


Where 1 




S i s an identifier that has been 
declared as a scalar type, or 
a variable which i s of a scalar 
type. 



+ 11.3.2 HIGHEST Function 

+ 
+ 
+ 
+ 



This function returns the highest value 
that is in the scalar type. The operand 
may be either a type identifier or a 
variable. If the operand is a type 
identifier, the value of the function is 
the highest value that a variable of 
that type may be assigned. If the opei — 
and is a variable, the value of the 
function is the highest value that the 
variable may be assigned. 



Example^ 

type 

DAYS 

SMALL 
var 
I 
J 



= (SUN, MON, 
THU, FRI, 
= . . 31; 

: INTEGER; 
• .. 255; 



TUES, 
SAT); 



WED, 



HIGHEST(DAYS) is SAT 

HIGHEST(BOOLEAN) is TRUE 

HIGHEST(SMALL) is 31 

HIGHEST(I) is MAXINT 

HIGHEST(J) is 255 

The HIGHEST Function 
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+ 131.3.3 LBOUND Function 

+ 
+ 
+ Louer Bound of Array 

+ 



Def i ni ti on ; 

function LBOUNDC 
V 
I 



function LBOUNDC 
T 
I 



Where: 



arraytype; 

i ntegei — const) 

scalar; 



type-i dent i f i er; 
i ntegei — const) 
scalar; 



is a variable which is declared 

as an array type. 

is an type identifier declared 

as an array. 

is an positive integer valued 

constant expression and is 

opti onal . 



+ 11-3.4 HBOUND Function 

+ 
+ 
+ Upper Bound of Array 

+ 



Def i ni ti on : 

function HBOUNDC 

V 
I 



function 

Mhere^ 

V 

T 



HBOUNDC 
T 
I 



arraytype; 

i ntegei — const) 

scalar; 



type-i dent i f i er; 
i ntegei — const) 
scalar; 



is declared 
declared 



is a variable which 

as an array type. 

is an type identifier 

as an array. 

is an positive integer-valued 

constant expression and is 

opti onal . 



The LBOUND function returns the lower 
bound of an index to an array. The 
array may be specified in two ways: 

• an identifier which was declared as 
an array type via the type 
construct; 



a variable 
type. 



which is of an array 



The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the lower bound is 
returned. It is assumed to be "1" if it 
i s not speci f i ed. 



Example* 

type 

GRID - arrayC-10. .10,-10. .103 of 
REAL; 
var 

A : arrayC 1. .100 3 of ALFA; 
B : arrayC l. .100 3 of 

of arrayC 0. .9 3 of CHAR; 



LBOUNDC A ) is 1 

LBOUNDC GRID, 1) is -10 

LBOUNDC B, 2 ) is 

LBOUNDC BC13 ) is 

The LBOUND Function 



The HBOUND function returns the upper 
bound of an index to an array. The 
array may be specified in two ways: 



an identifier which was 
an array type via 
construct; 



declared as 
the type 



a variable 
type. 



which is of an array 



The value returned is of the same type 
as the type of the index. The second 
parameter defines the dimension of the 
array for which the upper bound is 
returned. It is assumed to be "1" if it 
i s not speci f i ed. 



Example: 

type 

GRID = array[-l0. .10,-10. .103 of 
REAL; 



var 

A 
B 



GRID; 

arrayC 1 . . 100 3 of 

of arrayC 0. .9 3 of CHAR; 



HBOUNDC A ) 

HBOUNDC GRID ) 

HBOUNDC B, 2 ) 

HBOUNDC BC13 ) 



is 10 
is 10 
9 
9 



1 5 

i s 



The HBOUND Function 
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+ ] 


LI. 3. 5 SIZEOF Film 


:tion 


+ 


+ 






+ 


+ 






+ 


+ 
+ 


Allocati on 


Size of Data 


+ 
+ 
+ 






+ 


Def i ni t i on ' 




+ 


+ 






+ 


+ 


function SIZEOFC 




+ 


+ 


s 


: anytype) 


+ 


+ 




: INTEGER; 


+ 


+ 






+ 


+ 


function sizeofc 




+ 


+ 


s 


• recordtype; 




+ 


tl,t2,. . . 


: tags); 




+ 
+ 
+ 




: INTEGER; 




Where : 






+ 








+ 


S i s an identifier that has been 




+ 


declared as a 


type, or any 




+ 


vari able. 






+ 








+ 
+ 









The SIZEOF function returns the amount 
of storage in bytes required to contain 
the variable or a variable of the type 
speci f i ed. 

If S is a record variable or a type 
identifier of a record, it may be fol- 
lowed by tag list which defines a pai — 
ticular variant configuration of the 
record. In this case the function will 
return the amount of storage required 
within the record to contain that vari- 
ant configuration. 
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11.4 CONVERSION ROUTINES 



This section documents predefined routines which preform conversions from one data 
type to another. Refer to "WRITESTR" on page 141 and "READSTR" on page 141 for char- 
acter string conversions. 



11.4.1 ORD Function 



11.4.2 CHR Function 



Ord 


i nal 


Va 


lue 


of 


Scalar 


Def i ni t i on "• 










function 


0RD( 
S 






: scalar ) 
: INTEGER; 


Where: 












S i s may 
a point 


be any 
er . 


sea 


lar 


type or 



Integer to Character Conversion 



Def i ni t i on •* 








function 


CHR( 
I 




INTEGER ) 
CHAR; 




Where: 










I i s an 
to be 


INTEGER expression that 
interpreted as a charact 


i s 

er , 



This function returns an integer that 
corresponds to the ordinal value of the 
scalar. If the operand is of type CHAR 
then the value returned is the position 
in the EBCDIC character set for the 
character operand. If the operand is an 
enumerated scalar, then it returns the 
position in the enumeration (beginning 
at zero); for example, if COLOR = (RED, 
YELLOW, BLUE), then ORD(RED) is and 
ORD(BLUE) is 2. 

If the operand is a pointer, then the 
function returns the machine address of 
the dynamic variable referenced by the 
pointer. Although pointers can be con- 
verted to INTEGERS, there is no function 
provided to convert an INTEGER to a 
poi nter . 



This function is the inverse function to 
ORD for characters. That is, 
f 0RD(CHR(I))=I' if I is in the subrange: 

ORDCLOWEST(CHAR)). . 0RD( HIGHEST (CHAR) ) 

If the operand is not within this range 
and checking is enabled then a runtime 
error will result, otherwise the result 
is unpredictable. 
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+ 11.^.3 Scalar Conversion 

+ 
+ 
+ Integer to Scalar Conversion 

+ 



Def i ni t i on ' 

function type-id( 
I 



Where ' 



INTEGER) 
scalai — type; 



is an integer valued expression 
that is to be converted to an 
enumerated scalar. 



Every type identifier for an enumerated 
scalar or subrange scalar can be used as 
a function that converts an integer into 
a value of the enumerated scalar. These 
functions arG the inverse of ORD. 



Example- 
type 

DAYS 



= (SUN, MON, 
THU, FRI, 



TUES, 
SAT); 



WED, 



DAYS(O) 

DAYSC3) 

DAYS(6) 

DAYSC7) 

BOOLEAN(O) 

BOOLEAN(l) 



SUN 

WED 

SAT 

an error 

FALSE 

TRUE 



The Enumerated Scalar Function 



+ 11.*.+ FLOAT Function 

+ 
+ 
+ Integer to Real Conversion 

+ 



Def i ni ti on: 








function 


FLOATC 
I 




: INTEGER 
: REAL; 


) 


Where : 










I i s an 


INTEGER 


va 


lued expression. 



This function converts an INTEGER to a 
REAL. Pascal/VS will convert an INTEGER 
to a REAL implicitly if one operand of 
an arithmetic or relation operator is 
REAL and the other is INTEGER. This 
function is useful in making the convei — 
sion explicit in the program. 
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11.4.5 TRUNC Function 



11.4.6 ROUND Function 



Real to Integer Conversion 



Real to Integer Conversion 



Def i ni t i on : 






function TRUNCC 
R 




: REAL ) 
: INTEGER; 


function TRUNCC 
s 




: SHORTREAL ) 
: INTEGER; 


Where s 






R is a REAL valued 
S is a SHORTREAL Vc 


expressi on. 
ilued expression. 



Def i ni ti on«' 








function ROUNDC 
R 




: 


REAL ) 
INTEGER; 


function ROUNDC 
s 




: 


SHORTREAL ) 
INTEGER; 


Where s 








R is a REAL valu 
S is a SHORTREAL 


ed expression, 
valued expression. 



This function converts a REAL expression 
to an INTEGER by truncating the operand 
toward zero. 



Examples 










TRUNCC 


1 


.0) 


i s 


1 


TRUNCC 


1 


1) 


1 s 


1 


TRUNCC 


1 


9) 


1 s 


1 


TRUNCC 





0) 


1 s 





TRUNCC- 


-1 


.0) 


1 s 


-1 


TRUNCC- 


-1 


1) 


1 s 


-1 



TRUNCC-1.9) is -1 



This function converts a REAL expression 
to an INTEGER by rounding the operand. 
This function equivalent to 

if R > o.o then 

ROUND := TRUNCCR + 0.5) 
else 

ROUND := TRUNCCR - 0.5) 



Examples 










ROUNDC 


1 


0) 


i s 


1 


ROUNDC 


1 


1) 


1 s 


1 


ROUNDC 


1 


9) 


1 s 


2 


ROUNDC 





0) 


1 s 





ROUNDC- 


-1 


.0) 


i s 


-1 


ROUNDC- 


-1 


1) 


1 s 


-1 


ROUNDC- 


-1 


9) 


1 s 


-2 
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11. 4.7 STR Function 



Convert to String 



Def i ni t i on : 








function STR( 
X 


CHAR or packed 
arrayCl. .n] of 
CHAR ) 
STRING; 


Where: 








x is CHAR or packed arrayCl. 
CHAR expression. 


.n] 


Of 



This function converts either a CHAR or 
packed arrayCL.n] of CHAR to a STRING. 
Pascal/VS will implicitly convert a 
STRING to a CHAR or packed arrayCL.n] 
Of CHAR on assignment, but all other 
conversions require you to explicitly 
state the conversion. You may assign a 
CHAR to an packed arrayCL.n] of CHAR by 
ei ther • 



var 

AOC 
CH 

AOC 

AOC 



: ALPHA; 
: CHAR; 

:= STR(CH); 

:= » ' ; A0CC1] 



••= CH; 
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11.5 MATHEMATICAL ROUTINES 



These routines defined various mathematical transformations. 



+ 11*5. 1 

+ 
+ 
+ 

+ 



MIN Function 



MIN 


imum Value of Scalars 


Def i ni ti on* 


function 


MINC 




EO, 




En : scalai — type) 




'> scalar-type; 


Where J 




Ei i s an 


expression of a scalar 


type. 


All parameters must be 


of the same type except where 


noted 


below. 



+ 11.5.2 MAX Function 

+ 
+ 
+ Maximum Value of Scalars 

+ 



Def i ni ti on : 


function 


MAX( 




EO, 




En ' scalar-type) 




: scalar-type; 


Uhere* 




Ei i s an 


expression of a scalar 


type. 


All parameters must be 


of the same type except where 


noted 


below. 



+ The MIN function returns the minimum + 

+ value of two or more expressions. The + 

+ parameters may be of any scalar type, + 

+ including REAL. The parameters may be a + 

+ mixture of INTEGER and REAL expressions, + 

+ in which case, the result will be of + 

+ type REAL. In all other cases, the + 

+ parameters must be conformable to each + 

+ other. 



The MAX function returns the maximum 
value of two or more parameters. The 
parameters may be of any scalar type, 
including REAL. They may be a mixture 
of INTEGER and REAL expressions, in 
which case, the result will be of type 
REAL. In all other cases, the parame- 
ters must be conformable to each other. 
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11.5.3 PREP Function 



11.5.4 succ Function 



Predecessor 


Value 


of a Sea 


lar 


Def i ni t i on ' 








function 


PREDC 
S 


: 


scalar) 
scalar; 




Where •* 










S i s any 


scalar 


expressi on. 





Successor Value of a Scalar 



Def i ni t i on : 




function SUCCC 
s 


i scalar) 
i scalar; 


Where: 




S is any scalar 


expressi on. 



This function returns the predecessor 
value of the parameter expression. The 
PRED of the first element of an enumer- 
ated scalar is an error. If the option 
%CHECK is ON, a runtime error will be 
raised if the PRED of the first element 
is attempted. If the checking is not 
performed, the results of the PRED of 
the first value is not defined. 
PRED(TRUE) is FALSE and PRED('B') is 
»A'. The PRED of an INTEGER is equiv- 
alent to subtracting one. PRED of a 
REAL argument is &n error. 



This function returns the successor val- 
ue of the parameter expression. The 
SUCC of the last element of an enumei — 
ated scalar is an error. If the option 
%CHECK is ON, a runtime error will be 
raised if the SUCC of the last element 
is attempted. If the checking is not 
performed, the results of the SUCC of 
the last value is not defined. 
SUCC(FALSE) is TRUE and SUCCC 'B') is 
'C». The SUCC of an INTEGER is equiv- 
alent to adding one. SUCC of a REAL 
argument is an error. 
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11.5.5 ODD Function 



11.5.6 ABS Function 





Test for ] 


nt 


eger i s Odd 


Def i rn 


t i o n '• 






function 0DD( 
I 




: INTEGER) 
: BOOLEAN; 


Where 








I is an INTEGER 
for being odd. 


to 


be tested 



Absolute Value 



This function returns TRUE if the param- 
eter I is odd, or FALSE if it is even. 



Def i ni t i on : 




function ABS( 
I 


: INTEGER ) 
: INTEGER; 


function ABS( 
R 


: REAL) 
: REAL; 


Where: 




I i s an INTEGER expression. 
R is a REAL expression. 



The ABS function returns either a REAL 
value or an INTEGER value depending the 
type of its parameter. The result is 
the absolute value of the parameter. 
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11.5.7 SIN Function 



11.5.8 COS Function 



Compute Sine 



Def i nitions 




function SIN( 
X 


: REAL) 
: REAL; 


Where : 




X is an expression 
to a REAL value. 


that evaluates 





Compute 


Cosi ne 




Def i ni t 


i on : 






function C0S( 

X 


: REAL) 
: REAL; 




Where 1 








X i s an 
to a 


expressi on 
REAL value. 


that eva 


luates 



The SIN function computes the sine of 
parameter X, where X is expressed in 
radi ans. 



The COS function computes the cosine of 
the parameter X, where X is expressed in 
radi ans. 
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11.5,9 ARCTAN Function 



11.5.10 EXP Function 



Compute Arctangent 



Def i ni t i on : 




function ARCTANC 
X 


: REAL) 
: REAL; 


Where" 




X is an expression 
to a REAL value. 


that evaluates 





Compute 


Exp 


>onential 




Def i ni 


t i on i 








functi 


on EXP( 
X 




: REAL) 
: REAL; 




Where : 










X i s an expression 
to a REAL value. 


that eval 


uates 



The ARCTAN function computes the 
arctangent of parameter X. The result is 
expressed in radians. 



The EXP function computes the value of 
the base of the natural logarithms, e, 
raised to the power expressed by parame- 
ter X. 
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11.5.11 LN Function 



Compute Natural Log 




Def i ni t i on : 






function LN( 
X 


: REAL) 
: REAL; 




Where J 






X i s an expression 
to a REAL value. 


that eval 


uates 



The LN function computes the natural 
logarithm of the parameter X. 



11.5.12 SQRT Function 

Compute Square Root 



Def ini ti on J 




function SQRT( 
X 


: REAL) 
: REAL; 


Where 5 




X i s an expression 
to a REAL value. 


that evaluates 



The SQRT function computes the square 
root of the parameter X. If the argu- 
ment is less than zero, a run time error 
i s produced. 
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11.5.13 SQR Function 



Compute Square 



Def i ni t i on : 




function SQR( 

X : REAL) 


REAL; 


function SQR( 

X : INTEGER): INTEGER; 


Where : 




X is an expression that evaluates 
to a REAL or INTEGER value. 



The SQR function computes the square of 
the argument. If the argument is of 
type REAL, then a REAL result is 
returned, otherwise the function 
returns an INTEGER. 



+ 11.5.14 RANDOM Function 

+ 
+ 
+ Compute a Random Number 

+ 



Def i ni t i on : 




function RANDOMC 

S : INTEGER) : 


REAL; 


Where: 




S i s an expression that 
to an INTEGER value. 


evaluates 



The RANDOM function returns a pseudo 
random number in the range >0.0 and 
<1.0. The parameter S is called the 
seed of the random number and i s used to 
specify the beginning of the sequence. 
RANDOM always returns the same value 
when called with the same non zero seed. 
If you pass a seed value of 0, RANDOM 
will return the next number as generated 
from the previous seed. Thus, the gen- 
eral way to use this function is to pass 
it a non zero seed on the first invoca- 
tion and a zero value thereafter. 
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11.6 STRING ROUTINES 



These routines provide convenient means of operating on string data. 
11.6.1 LENGTH Function 11.6.2 MAXLENGTH Function 



Maximum Length of a String 





Length 


of 


Stri ng 


Def i ni 


t i on ' 






function LENGTH ( 
s 




: STRING) 
: 0. .32767; 


Where • 








S i s a 


STRING va 


lue 


d expression. 



Def i ni t i on ' 






function MAXLENGTHC 

S : 


STRING) 
0. .32767; 


Where : 






S is a STRING 


valued 


expressi on. 



+ This function returns the current length 
+ of the parameter. The value will be in 
+ the range . .32767. 



This function returns the maximum length 
of the parameter string. The value will 
+ be in the range 0.. 32767. 
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11.6.3 SUBSTR Function 



Obtain Substring 



Def i ni t i on ' 

function SUBSTRC 
const SOURCE 
START 
LEN 



STRING; 
INTEGER; 
INTEGER): STRING; 



function SUBSTRC 
const SOURCE : STRING; 
START : INTEGER) 



Where 



STRING; 



SOURCE is a STRING expression from 
which a substring will be 
returned. 

START is an INTEGER expression that 
designates the first position 
in the SOURCE to be returned. 

LEN is an INTEGER expression that 
defines the number of 
characters to be returned. 



The SUBSTR function returns a substring 
from the specified source string 
(SOURCE). The second parameter (START) 
specifies the starting position within 
the source from where the substring is 
to be extracted. (The first character 
of the source string is at position 1). 
The third parameter (LEN) determines the 
length of the substring. If the length 
is omitted, the substring returned will 
be the remaining portion of the source 
string from position START. 

The value of START+LEN-1 must be less 
than or equal to the current LENGTH of 
the string, otherwise, an error diagnos- 
tic will be produced at run time. 



,2,3) yields 'BCD' 
,1,3) yields 'ABC 
,4) yields 'DE' 
,1) yields 'ABCDE* 
,2,5) i s an error 



+ Examples^ 




SUBSTR( 


'ABCDE 


SUBSTR( 


'ABCDE 


SUBSTR( 


•ABCDE 


SUBSTR( 


'ABCDE 


SUBSTR( 


'ABCDE 



11.6.4 DELETE Function 



Delete Substring 



Def i ni t i on : 

function DELETE( 
const SOURCE : STRING; 
START : INTEGER; 
LEN : INTEGER): STRING; 



function DELETE( 
const SOURCE : STRING; 

START : INTEGER): STRING; 



Mhere : 

SOURCE is a STRING expression from 
which a portion will be 
deleted. 

START is an INTEGER expression that 
designates the first position 
in the SOURCE to be deleted. 

LEN is an INTEGER expression that 
defines the number of 
characters to be deleted. 



The DELETE function returns the source 
string (SOURCE) with a portion of the 
string removed. The second parameter 
(START) specifies the starting position 
within the source where characters are 
to be deleted. (The first character of 
the source string is at position 1). 
The third parameter (LEN) specifies the 
number of characters to be deleted. If 
the length parameter is omitted, all 
remaining characters are deleted; more 
precisely, the string is truncated 
beginning at position START. 

An attempt to delete a portion of the 
source beyond its length is an execution 
t i me error . 

Examples: 

DELETECABCDE' ,2,3) yields 'AE' 
DELETECABCDE',3) yields 'AB' 
DELETECABCDE' ,3,1) yields 'ABDE' 
DELETECABCDE', 1) yields " 
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+ 11.6. 5 TRIM Function 

+ 
+ 

+ Remove Trailing Blanks 

+ 



Def i ni t i on • 






function 
const 


TRIMC 
SOURCE 


: STRING) 
*. STRING; 




Where : 








SOURCE i 


s the 


STRING to be 


trimmed. 



+ 11.6.6 LTRIM Function 

+ 

+ 

+ Remove Leading Blanks 

+ 



Def i ni t i on ; 

function LTRIMC 
const SOURCE 



STRING) 
: STRING; 



Mhere ; 

SOURCE is the STRING to be trimmed, 



+ The TRIM function returns the parameter 
+ value with all trailing blanks removed. 

+ 



Example 1 

TRIMC A 
TRIMC 



') yields » A B' 
') yields »' 



The LTRIM function returns the parameter 
value with all leading blanks removed. 



Example 1 

LTRIMC 
LTRIMC 



A B f ) yields 'A B 
') yields »' 
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11.6.7 COMPRESS Function 



Remove Multiple Blanks 



Def i ni t i on ' 




function 
const 


COMPRESSC 
SOURCE : STRING) 

: STRING; 


Where : 






SOURCE i 
to be 


s a the STRING expression 
compressed. 



The COMPRESS function replaces multiple 
blanks with a single blank. 

Example 5 

COMPRESSCA B CD ') yields 'A B CD ' 



•i- ll.fr. 8 1H DEX ru n clicn 
+ 

+ 

+ Lookup String 

+ 



Def i ni t i on > 

function INDEXC 
const source 
const lockup 



STRING; 
STRING) 
0. .32767; 



Where' 

SOURCE is a STRING that contains 
the data to be compared against 

LOOKUP is the data to be looked 
up in the SOURCE. 



The INDEX function compares the second 
parameter against the first and returns 
the starting index of the first instance 
where LOOKUP begins in SOURCE. If there 
are no occurrences, then a zero is 
returned. 

Examples^ 



var 

s 



: STRING; 
= 'ABCABC* 



INDEX(S, 'BO yields 2 
INDEX(S,'X') yields 
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+ 11.6.9 

+ 
+ 
+ 
+ 



TOKEN Procedure 



Find Token 



Def i ni t i on : 

procedure TOKENC 

var POS : INTEGER; 
const SOURCE : STRING; 
var RESULT : ALPHA); 



Where 



POS is the starting index in SOURCE 
of where to look for a token, it 
is set to the index of where to 
resume the search on the next 
use of TOKEN. 

SOURCE is a STRING that contains 
the data from which a token 
is to be extracted. 

RESULT is the variable which will 
be returned with token found. 



The TOKEN procedure scans the SOURCE 
string looking for a token and returns 
it as an ALPHA. The starting position 
of the scan is passed a!, the first 
parameter. This parameter is changed to 
reflect the position which the scan is 
to be resumed on subsequent calls. 
Leading blanks, multiple blanks and 



trailing blanks are ignored. If there 
is no token in the string, POS is set to 
LENGTH(S0URCE)+1 and RESULT is set to 
all blanks. 

A token is defined to be any of? 

• Pascal/VS identifier 1 to 16 
alphanumeric characters, '$' or an 
underscore. The first letter must 
be alphabetic or a '$'. 

• Pascal/VS unsigned integer - see 
page 18. 



The following special symbols 1 



<> 
) 

& 
, 
} 



< 

C 

(x 



/ 
< = 

] 



*) 



-> 
> = 



/* 



*/ 



Example 2 

I := 2; 

TOK-ENCI,', Token+*, RESULT) 

I is set to 8 

RESULT is set to 'Token 

TOKEN would return the same if 
I were set to 3, that is, 
leading blanks are ignored. 
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+ 11.6.10 

+ 

+ 
+ 
+ 



READSTR 



Read Data from a STRING 



Def i ni t i on ♦ 

procedure READSTRC 
const s : STRING; 

v ' see below); 

Where 5 

s is a STRING expression that 
is to be used for input. 

visa list of one or more 
variables, each must be one 
of the following types 5 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- SHORTREAL 

- STRING 

- packed array of CHAR 



READSTR procedure reads character 

from a source string into one or 

variables. The actions of READSTR 

identical to that of READ except 

the source data is extracted from a 

expression instead of a text 

See "READ and READLN (TEXT 



The 

data 

more 

are 

that 

stri ng 

file. 

Files)" on page 109. 

As in the READ procedure, variables may 
be qualified with a field length expres- 
sion. See the example below. 



var 

I, J 

s 

si 

CH 

cc 



INTEGER; 

STRING(IOO); 

STRING(IOO); 

CHAR; 

packed arrayCl.,103 of CHAR; 



S ••= "36 245ABCDEFGHIJK'; 
READSTR(S,I,J 5 3,CH,CC 5 5,S1) 



+ the variables would be assigned 5 

+ 

+ I 36 

J 24 

CH '5' 

CC 'ABCDE « 

SI 'FGHIJK'; 

LENGTH(Sl) 6 



11.6.11 HRITESTR 



Write Data to a STRING 



Def i ni t i on ♦ 

procedure WRITESTR( 

var s : STRING; 

e • see below); 

Where 5 

s is a STRING variable 
e i s an expression of one of the 
following types 5 

- INTEGER (or subrange) 

- CHAR (or subrange) 

- REAL 

- SHORTREAL 

- BOOLEAN 

- STRING 

- packed arrayCL.n] of CHAR 

Pascal/VS accepts a special para- 
meter format which allows you. 
to specify a length of the result 



The WRITESTR procedure converts expres- 
sions into character data and stores the 
data into a string variable. The seman- 
tics of WRITESTR are identical to WRITE, 
except that the target of the data is to 
a STRING rather than to a text file. 
See "WRITE and WRITELN (TEXT Files)" on 
page 112. 

As in the case of WRITE, the expressions 
being converted may be qualified with a 
field length expression. 



var 

I, J 
s 

R 
CH 



INTEGER; 
STRING(IOO); 
REAL; 
CHAR; 



I 5 = 10; J 5 = -123; 
R 5 = 3.14159; 

WRITESTR(S,I 5 3,J 5 5, 
R 5 5 5 2); 



ABCCH, 



The READSTR Procedure 



the variable S would be assigned 5 
' 10 -123ABC* 3.14' 

The WRITESTR Procedure 
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11.7 GENERAL ROUTINES 



These routines provide several useful features of the Pascal/VS runtime environment 



+ 11.7.1 TR x ^E Procedure 

+ 
+ 
+ Routine Trace 

+ 



Def i ni t i on : 








procedure TRACE( 
var F 


: TEXT); 




Where ' 








F i s the file 
the trace li 


th 
st 


at will 
i ng 


recei ve 



+ 11.7.2 HALT Procedure 
+ 

+ 

+ Halt Program Execution 

+ 



Def i ni t i on • 
procedure HALT; 



+ This routine halts execution of an Pas- 

+ cal/VS program. That is, this can be 

+ considered to be a return from the main 

+ program. 



+ This procedure displays the current list 
+ of procedures and functions that are 
+ pending execution (i.e. save chain). 
+ Each line of the listing contains the 
+ name of the routine, the statement num- 
+ ber where the call took place, the 
+ return address in hexadecimal and the 
+ name of the module that contained the 
+ calling procedure. 
+ 

+ The file F is the TEXT file to which the 
+ information is to be written. 
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11.8 SYSTEM INTERFACE ROUTINES 



These routines provide interfaces to system facilities: 
ent on the implementation of Pascal/VS. 



in general they are depend- 



+ 11-3.1 

+ 

+ 
+ 

+ 



DATETIME Procedure 
Get Date and Time 



Def ini ti on* 

procedure DATETIMEC 
var DATE, 

TIME :' ALFA); 

where : 

DATE is the returned date. 
TIME is the returned time, 



+ 11.8.2 CLOCK Function 

+ 
+ 

+ Get Execution Time 

+ 



Def ini tion* 
function CLOCK 



INTEGER; 



The value returned is the number of 
microseconds the program has been run- 
ning. Note? In an MVS system? the time 
is "TASK" time; and in a CMS system* the 
time is "CPU virtual" time. 



Th 
an 
fo 
fi 
ly 



i s procedure returns the current date 
d time of day as two ALFA arrays. The 
rmat of the result is placed in the 
rst and second parameters respective- 



wh 



ere 

mm 

dd 
yy 

HH 

MM 
SS 



mm/dd/yy 
HH--MM:SS 



is the month expressed as a two 

digit value. 

is the day of the month. 

is the last two digits of the 

year. 

i s the hour of the day expressed 

in a 24 hour clock. 

is the minute of the hour. 

is the second of the minute. 
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+ 11.8.3 

+ 
+ 
+ 
+ 



FARMS Function 



Get Execution Parameters 



Def i ni ti on' 

function PARMS : STRING; 



+ The PARMS function returns a string that 
+ was associated with initial invocation 
+ of the Pascal/VS main program. 



+ 

+ 
+ 

+ 



RETCODE Procedure 



Set Program Return Code 



Def i n j ti on * 

procedure RETCODEC 

RETVALUE : INTEGER); 

where' 

RETVALUE is the return code to be 
passed to the caller of the 
Pascal/VS program. The value 
is system dependent. 



The value of the operand will be 
returned to system when an exit is made 
from the main program. If this routine 
is called several times* only the last 
value specified will be passed back to 
the system. 
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12.0 THE % FEATURE 



Syntax '> 



include-statement- 

— -> X ---> INCLUDE — j— > id ( id ) 

L > id _. 



~>T 



check-statement : 
- — > X — > CHECK 



> ON 



> POINTER > 

> SUBSCRIPT > 

> SUBRANGE > 

> FUNCTION > 

h > CASE — H 

> TRUNCATE > 



print-statement- 

> X > PRINT T > ON T 

L > 0FF >J 

1 i st-statement : 
> % > LIST t > ON 



j > uri t- 

L > OFF > J 



t ?■ un 1 

L > OFF > J 

page-statement ? 

— -> X — > PAGE 

cpage-statement ♦ 

> % > CPAGE > unsigned-integer 

ti tie-statement? 

---> X > TITLE > any-character-string 

ski p- statement • 

> X > SKIP > unsigned-integer 

margi n s- statement ? 

> X > MARGINS > unsigned-integer unsigned-integer 



The X feature of Pascal/VS is used to + which causes the compiler to ignore all 

enable or disable a number of compiler + text between the statement and the 

options and features. The compiler + end-of-1 i ne. 
treats a X command as a trigger symbol 



The X Feature 
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12.1 THE ^INCLUDE STATEMENT 



The INCLUDE statement causes source from 
a library file to be inserted into the 
input stream immediately after the cur- 
rent line. More precisely, the compiler 
is directed to begin reading its input 
from a library file; when the end of the 
file is reached, the compiler will 
resume reading from the previous source. 



There are 
statement •* 



two forms of the INCLUDE 



• ^INCLUDE 1 i brary-name(member-name) 

• ^INCLUDE member-name 

The first form references a library file 
and a specific member in the file. 5 



The second form references a 
member from a default library. 



program ABC; 
const 

^include CONSTS 
typa 

%include TYPES 
var 

%include VARS 
^include LIBKPROCS) 
begin 



speci f i c 



end 



Example of /JINCLUDE statement 



12.2 THE frCHECK STATEMENT 



The CHECK statement gives you the abili- 
ty to enable or disable the runtime 
checking features of Pascal/VS. The 
checking may be enabled for part or all 
of the program. The compiler will check 
the f ollowi ng: 

• use of a pointer whose value is NIL 
(POINTER). 

• use of a subscript which is out of 
range for the array index 
(SUBSCRIPT) . 

• lack of an assignment of a value to 
a function before exiting from the 
function (FUNCTION) . 



• assignment of a value which is not 
in the proper rB\to^ for th<a target 
variable (SUBRANGE) . 

• use of the predefined functions PRED 
or SUCC where the result of the 
function is not a value in the type, 
i.e. underflow or overflow of the 
value range (SUBRANGE). 

• the value of a CASE statement selec- 
tor which is not equal to any of the 
CASE labels (CASE) . 

• the value of a string will be 
checked to be sure it will fit into 
the target string on an assignemnt 
(TRUNCATE). 

If the check option is missing, then all 
of the above checks will be assumed 
applicable. For example, '%CHECK ON' 
activates all of the checks. '5SCHECK 
POINTER OFF' will disable the check on 
pointer references. The default is : 

% CHECK ON 

The %CHECK statement, like the other 
statements in this section, is a direc- 
tion to the compiler. Its effect is 
based on where it appears in the text 
and is not subject to any structuring 
established by the program. 



12.3 THE SPRINT STATEMENT 



The PRINT statement is used to turn on 
and off the printing of source in the 
listing. The default is : 

% PRINT ON 



12.4 THE 4 4LIST STATEMENT 



The LIST statement is used to enable or 
disable the pseudo-assembler listing of 
the Pascal/VS compiler. This option 
only has affect if the LIST compiler 
options is enabled. 

It is often required to view the 
pseudo-assembler listing for only a 
s^all section of a module, and to have 
it suppressed elsewhere. This can be 
done as follows 2 

1. Insert a line at the beginning of 
the module that consists of 

XLIST OFF 



Under VM/CMS, OS, and MVS/TSO operating environments, the specified library 
name is actually the "DD name" of a partitioned data set (which may be con- 
catenated). If the library name is omitted, the default is SYSLIB. 



146 



Pascal/VS Reference Manual 



TNL SN204446 (31 December 81) to SH20-6168-1 



2. At the beginning of each section of 
code for which an assembler listing 
is required, insert 

%LIST ON 

3. At the end of each code section 

insert 

%LIST OFF 

4. Compile the module with the LIST 
opt i on. 



page skip. The title is printed as spe- 
cified on the statement, there is no 
change from lower case to upper case. 
The default is no title. 



1 ".8 THE SSKIP STATEMENT 



The SKIP statement is used to force one 
or more blank lines to be inserted into 
the source listing. 



12.5 THE SPAGE STATEMENT 



The PAGE statement i s used to force a 
skip to the next page on the output 
listing of the source program. 



12.6 THE SCFAGE STATEMENT 



The CPAGE statement i s used to force a 
page eject if there are less than a spe- 
cified number of lines left on the cur- 
rent page of the output listing. This 
is useful to make sure there is suffi- 
cient room for a unit of code, thereby 
not having it split across two pages. 
Example : 

% CPAGE 30 



12.7 THE STITLE STATEMENT 



The TITLE statement is used to set the 
title in the listing. It also causes a 



12.9 THE ^MARGINS STATEMENT 



The MARGINS statement redefines the left 
and right margins of the compiler input. 
The compiler skips all characters that 
lie outside the margins. The statement 
has the form 

^MARGINS m n 

where "m" is the new left margin and "n" 
is the new right margin. 

If the MARGINS statement appears in a 
library member which is being "included" 
by the JilNCLUDE statement, the new mar- 
gins will have affect for the duration 
of the member only. When the end of the 
member is reached and the previous 
source is resumed, the margin settings 
will revert back to their previous con- 
dition. 
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A.O THE SPACE TYPE 



A.l THE SPACE DECLARATION 



Syntax* 



space~type ; 
> space > [ >Cconstant-expr> > ] > of >{type> > 



The need arises to represent data within 
storage areas which do not have the same 
fixed offset within each instance of the 
area. Examples of this include entries 
within a directory, where each entry may 
be of variable length, and processing 
variable length records from a buffer. 
To solve thi s problem, Pascal/VS pro- 
vides the space structure. 

A variable declared with the space type 
has a component which is able to 'float* 
over a storage area in a byte oriented 
manner. Space variables are accessed by 
following the variable's name with an 
integer index expression enclosed in 
square brackets. The index represents 
the offset (in bytes) within the space 
storage where the data to be accessed 
resides. The offset is specified with 
an origin of zero. 

The constant expression which follows 
the space qualifier in the type defi- 
nition represents the size of the stor- 
age area (in bytes) associated with the 
type. 

The component type of the space may be 
of any type except a file type. 

An element of a space may not be passed 
as a var parameter to a routine. Howev- 
er, an element may be passed as a const 
or value parameter. 



A. 2 SPACE REFERENCING 



A component of a space is selected by 
placing an index expression, enclosed 



within square brackets, after the space 
variable (just as in Brray references). 
The indexing expression must be of type 
INTEGER (or a subrange thereof). The 
value of the index is the offset within 
the space at which the component is to 
be accessed. The unit of the index is 
the byte. The index is always based 
upon a zero origin. The component will 
be of the space base type. 

If the "/{CHECK SUBSCRIPT' option is ena- 
bled, the index expression will be 
checked at execution time to make sure 
that the computed address does not lie 
outside the storage occupied by the 
space. An execution time error diagnos- 
tic will occur if the value is invalid. 
(For a description of the CHECK feature 
see "The %CHECK Statement" on page 146). 



var 

S: spacetioo] of 
record 

A,B: INTEGER 
end; 

begin 

(base record begins 

at offset 10 within 

space } 
SC101.A := 26; 
SC101.B := 0; 
end; 

Space Referencing Examples 
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B.O STANDARD IDENTIFIERS IN PASCAL/VS 



A standard identifier is the name of a 
constant, type, variable or routine that 
is predefined in Pascal/VS. The name is 
declared in every module prior to the 
start of your program. You may redefine 



the name if you wish; however, it is 
better to use the name according to its 
predefined meaning. 

The identifiers that are predefined ar&- 



Standard Identifiers 



i denti f i er 



form 



descri pt i on 



ABS 

ALFA 

ALFALEN 

ALPHA 

ALPHALEN 

ARCTAN 

BOOLEAN 

CHAR 

CHR 

CLOCK 

CLOSE 

COLS 

COMPRESS 

COS 

DATETIME 

DELETE 

DISPOSE 

EOF 

EOLN 

EXP 

FALSE 

FLOAT 

GET 

HALT 

HBOUND 

HIGHEST 

INDEX 

INPUT 

INTEGER 

LBOUND 

LENGTH 

LN 

LOWEST 

LTRIM 

MARK 

MAX 

MAXINT 

MAXLENGTH 

MIN 

MININT 

NEW 



func 
type 
cons 
type 
cons 
func 
type 
type 
func 
func 
proc 
func 
func 
func 
proc 
func 
proc 
func 
func 
func 



ti on 

tant 

tant 
t i on 



ti on 
t i on 
edure 
ti on 
t i on 
t i on 
edure 
t i on 
edure 
t i on 
t i on 
t i on 



constant 
f unct i on 
procedure 
procedure 
f unct i on 
f unct i on 
f uncti on 
vari able 
type 

f unct i on 
f unct i on 
functi on 
funct i on 
functi on 
procedure 
functi on 
constant 
functi on 
functi on 
constant 
procedure 



compute the absolute value of an INTEGER or REAL 
array of 8 characters, indexed 1.. ALFALEN 
HBOUND of type ALFA, value is 8 
array of 16 characters, indexed 1.. ALPHALEN 
HBOUND of type ALPHA, value is 16 
returns the arctangent of the argument 
data type composed of the values FALSE and TRUE 
character data type 

convert an integer to a character value 
returns the number of micro seconds of execution 
close a f i le 

returns current column on output line 
replaces multiple blanks in a string with one blank 
returns the cosine of the argument 
returns the current date and time of day 
returns a string with a portion removed 
deallocate a dynamic variable 
test file for end of file condition 
test file for end of line condition 
returns the base of the natural log (e) 
raised to the power of the argument 
constant of type BOOLEAN, FALSE < TRUE 
convert an integer to a floating point value 
advance file pointer to next element of input file 
halts the programs execution 
determine the upper bound of an array 
determine the maximum value of a scalar 
looks up one string in another 
default input file 
i nteger data type 

determine the lower bound of an array 
determine the current length of a string 
returns the natural logarithm of the argument 
determine the minimum value of a scalar 
returns a string with leading blanks removed 
routine to create a new heap 

determine the maximum value of a list of scalers 
maximum value of type INTEGER 
determines the maximum length of a string 
determine the minimum value of a list of scalars 
minimum value of type INTEGER 
allocate a dynamic variable from most recent heap 
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Standard Identifiers Continued 



i denti f i er 



form 



descri pt i on 



ODD 

ORD 

OUTPUT 

PACK 

PAGE 

PARNS 

PDS1N 

PDSOUT 

POINTER 

PRED 

PUT 

RANDOM 

READ 

READLN 

READSTR 

REAL 

RELEASE 

RESET 

RETCODE 

REWRITE 

ROUND 

SEEK 

SHORTREAL 

SIN 

SIZEOF 

SQRT 

SQR 

STR 

STRING 

STRINGPTR 

SUBSTR 

SUCC 

TERMIN 

TERMOUT 

TEXT 

TOKEN 

TRACE 

TRIM 

TRUE 

TRUNC 

UNPACK 

UPDATE 

WRITE 

WRITELN 

WRITESTR 



f unct 

f unct 

vari a 

proce 

proce 

f unct 

proce 

proce 

type 

f unct 

proce 

f unct 

proce 

proce 

proce 

type 

proce 

proce 

proce 

proce 

f unct 

proce 

type 

f unct 

f unct 

f unct 

f unct 

funct 

type 



1 on 
i on 
ble 
dure 
dure 
i on 
dure 
dure 

I on 

dure 

i on 

dure 

dure 

dure 

dure 

dure 

dure 

dure 

i on 

dure 

i on 
i on 
i on 
i on 
i on 



type 

f unc 
func 
proc 
proc 
type 
proc 
proc 
func 
cons 
func 
proc 
proc 
proc 
proc 
proc 



ti on 
t i on 
edure 
edure 

edure 

edure 

t i on 

tant 

t i on 

edure 

edure 

edure 

edure 

edure 



returns TRUE if integer argument is odd 

convert a scalar value to an integer 

default output file 

copies an array to a packed array 

skips to the top of the next page 

returns the system dependent invocation parameters 

open a file for input from a partitioned data set 

open a file for output from a partitioned data set 

type to permit passing arbitrary pointers a routine 

obtain the predecessor of a scalar 

advance file pointer to next element of output file 

returns a pseudo-random number 

routine to read data from a file 

routine to read the end of line character of TEXT file 

converts a string to values assigned to variables 

floating point represented in 370 long floating point 

routine to destroy one or more heaps 

open a file for input 

sets the system dependent return code 

open a file for output 

convert a floating point to an integer by rounding 

positions an opened file at a specific record 

floating point represented in 370 short floating point 

returns the sine of the argument 

determine the memory size of a variable or type 

returns the square root of the argument 

returns the square of the argument 

convert an array of characters to a string 

a type for an array of char whose length varies during 

execution up to a maximum length 
a type for dynamically allocated strings of an 

execution determined length 
returns a portion of a string 
obtain the successor of a scalar 
open a file for input from the terminal 
open a file for output from the terminal 
file Of CHAR 

extracts tokens from a string 
writes the routine return stack 
returns a string with trailing blanks removed 
constant of type BOOLEAN, TRUE > FALSE 
convert a floating point to an integer by truncating 
copies a packed array to an array 
opens a file for both input and output 
routine to write data to a file 
routine to write end of line to a TEXT file 
converts a series of expressions into a string 
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actual -parameter s 
— > ( - 



r~c 



->(expr}- 
, <— 



> ) 



>J 



->j 



array- structure* 

Xid'type} > ( >n 

< J 

l _ _ _> {constant-expr} 1 > 

| u 



(repet i t i on} 



L<. 



wj 



> > 



array-type' 

— > packed 



-<- 



-> array C 



T^ 



■> (i ndex-type}- 

> < 



-> ] of Xtype} 



assert- statement ' 

— > assert — Xexpr} 



assi gnment- statement • 
1 > (variable) 



> tvar 1 able) 1 > 

■Xi d : f unct i on} > J 



-Xexpr}- 



base- sea lai — type' 



•> (enumerated-scalai — type} >- 

-Xi d: sea la i — type} 

•>{ subrange- sea la i — type 



> T 

} >J 



case-statement ' 

> case Xexpr} > of >■< 

-< 



i^ 



■> {range}- 
, <- 



■> (statement}- 



; <- 



T^ 



; <- 



> otherwise t > (statement} — t — > 



"I< 



ement J 1 ^-i 

. < J j 



•<■ 



-> end 



■>i 
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check-statement : 
> % > CHECK 



> POINTER > 

■> SUBSCRIPT > 

> SUBRANGE >- 

> FUNCTION >- 

> CASE >- 

> TRUNCATE > J 



> ON - 

L > OFF 



:::;r 



cpage-statement ; 

> % > CPAGE > unsigned-integer 



compound- statement 
> begin 



1 > {statement}- 

L< . < 



•> end 



constant 1 



-> {unsi gned-constant>- 

-i > + 1 >{unsi gned-number}- 

I > _ >J 



^r 



constant-del » 
> const — 



u 



->{id>- 



-> = 



■>{constant-expr>- 



cont i nue-statement : 
> continue 



declarati on? 

— >{label-dcl>- 



-> (con s tan t- del}- 

-> {type-del} 

■>{vai — del} 



I— ->{def-dcl} 

>{static-dcl}- 

>{ value-del} — 

— >{routi ne-dcl}- 



■>- 

■>- 

->- 

■>- 

■>- 

■> 

■H 

-> 



def-dcl: 

_ > d Q f 

L > re f 



:::;j— j— !<:::„ a ::::T 



>{id} T > : >{type} > ; 



T 



L<- 



15^ 
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di recti ve ; 

-—> FORWARD 



> EXTERNAL ■ 

> FORTRAN - 

> MAIN 

> REENTRANT 



empty-statement : 



enumerated- scalar- type* 

> ( 1 >{id> 1 > ) 



t;. 



->{id>- 
— » <- 



expr ' 
conatant-expr ♦ 

> Csimple-expressi on}- 



-> = 

-> <> 

-> < - 

-> < = 

■> > = 

-> > - 

-> in 



-> 

->• 

->- 

■>- 

->- 

■>■ 



•> (simple-expression)- 



3" 



factor? 



•>{functi on-call}- 
->{ variable} 



■> {set-constructor} — 
-> ( >{expr} > ) 



— > {structured-constant} 
> not > {factor} 



■> {unsi gned-constant}- 



fiel d? 
>{id}- 



L— > c — 



>{constant-expr} > ) 



T^I 



f i eld-li st * 

1 > {f i xed-part}- 



> 

; 1 — — >{variant-part} L 



■> ; 



^r— > 
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f i le-type ; 

> file Of >{type>- 



f i xed-part » 



-Xfield}- 
, <— 



■>Ctype>- 



■>-" 



L<. 



f or~statement « 

> for Xid) > := Xexpr}- 



r 



-> to 

■> downto 



^r 



•>{expr} >-t 



-> do > {statement}- 



formal '- 



■> var 



i " v«i -| 1 — 

L > cons t -->J l<. 

_ > : _ 



T K 



Ud)- 
, <- 



•> (procedure-headi ng}- 
■>f uncti on-head i ng} — 



{id}- 
, <- 



-> • > (id- type}- 



->{id: type}- 



->- 



fo rma 1 -parameter s : 
— > ( 



T7. 



>{formal}- 
; < — 



-> ) 



J 



functi on-call * 

>{i dJ functi on} > (actual -parameters}- 



functi on-headi ng' 

> function >{id} > {formal-parameters} > 



->{id: type}- 



goto- statement ; 

> goto > {label}- 
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id: 



-Xletter)- 



> {digit} >-i 

> {letter} >-\ >-i 

I > {underscore}--^-* 



u<. 



i f-statement ; 
— > if — Xexpr} — > then — >{statement}- 



> 

' > else — > {statement} — > J 



i nclude- statement ; 

— > X — > INCLUDE > id 



I > c > j d > ) >J 



i ndex-type: 



-> {enumerated-scalai — type}- 
■> {i 6' sea la i — type}- 



■> {subrange- sea la i — type}- 



label: 



-i > (unsi gned-i nteger} r 

L >{id} > J 



label-del : 
> label 



"C 



■>{label}- 

, <- 



■> ; 



leave-statement ; 
— > leave 



1 i st -statement : 
— > % — > LIST 



_> 0N 



-j > UN f 

L > OFF > J 



margi ns-statement : 

> % > MARGINS > unsigned-integer unsigned-integer 



module: 



-> {program-module} 



j -> iprogram-moauiej r 

I > {segment-module} > J 
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page-statement ' 
— > % ---> PAGE 



poi ntei — type? 

> a >(id:type}- 



pri nt- statement ; 

---> X > PRINT — t— > ON 



_ p. UM _. 

L — _> OFF > J 



procedure-call ' 
> { id : procedure }■ 



•> ( 



17 



■> {expr} r 

, < 1 



■> > — >J 



procedure-headi ng' 

> procedure >Cid) — — > {formal-parameters}- 



program-module 1 

> program >{id>- 



-> ( 



1 >{id}- 

L< f <. 



r<- 
<- 



; <■ 



■> (declarat i on}- 



7] 



-> {compound-statement} > . 



■> ) 



J 



■>T 



range 



> {constant -expr}- 



L— > .. 



> {constant-expr} 



z^i 



real-number* 

> t ___ T >{nex _ digit }__„___ > f XR 

>{digit}- 



'i<: 



-Xdigi.tl- 



r<- 
-<- 



■> . 



t^ 



■> E 



> + >A 

I > _ >J 



t:. 



->{digit}- 



■>i 



record-structure? 

+ >{id:type} > ( 

+ 
+ 



i;z 



•> {constant-expr} 



, <■ 



z::r 



> ) 
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record-type' 



■> packed 



^r 



■> record >{f ield-li st> > end 



rep eat- statement 
> repeat 



-> {statement}- 



; <- 



■> until XexprJ- 



repe t \ t i on ' 

> {constant-expr} 



return-statemen t ; 
> return 



rout i ne-dcl ' 



r<- 



-> {procedure-headi ng>- 
-> {f unct i on-head i ng} — 



-> {di recti ve} > ; 



-> (declarat i on)- 



3 



> {compound-statement}- 



>n 



segment-module '• 

> SEGMENT >{id} > ; - 

.< 

> {constant- del} >- 

> {type-del} >H 

> War- del} > 

> {def-dcl} >H 

> {static-del} > 

> { value- del} >- 

>{routi ne-dcl} > J 

L > 



— >- 



set -constructor* 
> [ — 



->{expr}- 



L <- 



-> {expr}- 



^1 



-> 3 
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set-type 



1=7 



packed > 



•> set of >{base-scalai — type}- 



si mple- expressi on ' 



-> + >■] 

-> - >-» 



->{term)- 



-> + 
-> - 



> | > 



ski p-statement ' 

- — > % > SKIP > unsigned-integer 



space-type: 

> space > C Xconstant-expr} > ] > of Xtype) 



statement • 

— Xlabel}- 



-<- 



— > (compound-statement}- 

>{conti nue- statement} 

— > (empty-statement}- 

— > {for- statement} 



2 



> {assert- statement} 

> {assi gnment-statement}- 

> {case-statement} 



■> { go to- statement }■ 
■>■{ i f -statement} 



— > {leave- statement} 
> {procedure- call}— 



>{ repeat- statement}- 

— > {ret urn- statement} 

> {whi le-statement}— 

— > {wi th- statement} — 



stat i c~dcl ' 
> static 



>{id} T > : >{type} > ; 



7""i<::^: a i:::i 



L<- 



7 
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stri ng ; 



-> » 



t^ 



(characterK- 



l > t >{hex-digit) T > »XC 



'!< 



.>J 



str i ng-type : 

> STRING j > ( >{constant-expr} > ) 



r>r 



structured-constant ' 



1 > {record- structure) r- 

' > (array- structure) >■* 



subrange- scalar- type? 



_ — > packed >-i 

-< J 



■>{constant)- 



■> {constant-expr}- 



u > range >{constant-expr> > .. > {constant-expr} > J 



terms 



■> {factor}- 



x 

/ 

div - 
mod - 
>> — 
<< — 

II — 
& 



->i 



— >• 
— > 
— >■ 
— > 
— >. 
— >. 



L <- 



t i tie- statement ; 

> % > TITLE > any-character-string 



t yp< LL 



■> {i d' type}- 



•> {enumerated-scalar-type}- 
-> {subrange- scalar- type} — 
-> {array-type} 



■> {record-type}- 
->{ set- type} 



-> {f i le-type}- 



11 >{poi nter-type}- 
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type-del • 
> type 



u 



-Xid)- 



-> = 



-Xtype}- 



unsi gned-constant ; 

— Xunsi gned-number) — 
— > {stri ng} >• 



-> (i d' constant} — > 

-> nil > J 



unsi gned-i nteger' 

-Xdigit}- 



T^ 



■ — > • j > (binary digit) j > 'B >• 

-j > £hex-di git) r 



1 ^voinary aigixj r 

i > t > (hex-digit) T > 'X > J 



unsi gned-number : 



-Xunsi gned-i nteger)- 
-> (real -number) 



'XT 



value-assi gnment • 
Xvariable) > : = 



■x > (constant-expressi on) 

L > (structured-constant) 



:::;r 



value-del ' 

> value 1 (value-assignment) > ; 



i<: 



var-dcl ♦ 

> var 



TZ 



■Xid) 



■Xtype)- 
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variable- 
Xid}- 



■>t 



-<- 



-> I 
-> . 

> a 



17 



->{expr}- 



•>{id:field}- 



•> 1 



•>- 



— >-» 



variant-part 



-> case 



> 

J 1 > (id: type) 1 > 



T7 



■> {range}- 
, < — 



■> : ( 



; <- 



->{field-list}- 



71 



-> ) 



whii le-statement : 

> While XexprJ > do >{statement}- 



wi th~ statement ' 
> with ■ 



£7 



->{variable}- 
, < 



-> do >{statement}- 
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actual-parameters 79 

array-structure 20 

array-type 42 

assert-statement 84 

assignment-statement 85 

base-scalai — type 48 

case-statement 86 

check-statement 145 

compound-statement 88 

constant 18 

constant-del 24 

constant-expr 71 

cont i nue-statement 89 

cpage-statement 145 

declaration 21 

def-dcl 28 

di recti ve 61 

empty-statement 90 

enumerated-scalar-type 34 

expr 71 

factor 71 

field 44 

field-list 44 

f i le-type. 50 

fixed-part 44 

foi — statement 91 

formal 61 

f ormal-paramaters 61 

function-heading 61 

f uncti on -call 79 

goto-statement 93 

id 13 

i f- statement 94 

i nclude- statement 145 

i ndex-type 42 

label 23 

label-del 23 

leave-statement 95 

list-statement 145 

| margi ns- statement 145 

module. 21 



page-statement 145 

pointer-type 57 

pri nt-statement l d 5 

procedure-call 96 

procedure-heading 61 

program-module 21 

range 44 

real-number 18 

record-structure 20 

record-type. . 44 

repeat-statement 97 

repetition 20 

return-statement 98 

routine-del 61 

segment-module 21 

set-constructor 81 

set-type 48 

simple-expression 71 

skip-statement l<+5 

space-type 149 

statement 83 

static-del 27 

string 18 

string-type 51 

structured-constant 20 

subrange-scalai — type. . 35 

term 71 

title-statement 145 

type . . 31 

type-del 25 

unsigned-constant 18 

unsigned-integer 18 

unsigned-number 18 

value-assi gnement 29 

value-del 29 

vai — del 26 

variable 67 

variant-part 44 

wi th- statement , . . . 100 

uhi le-statement 99 
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E.O GLOSSARY 



Actual parameter specifies what i s to be 
passed to a routine. 

Array type is the structured type that 
consists of a fixed number of elements, 
each element of the same type. 



Assignment compatible i s 
to indicate whether a 
assigned to a variable. 



the term used 
value may be 



Automa t ic variable is a variable which 
is allocated on entry to a routine and 
is deallocated on the subsequent return. 
An automatic variable is declared with 
the var declaration. 

Base scalar type i s the name of the type 
on which another type is based. 

Bi t is one binary digit. 

Byte is the unit of addresabi 1 i ty on the 
System/370, its length is eight bits. 

Compati b le types is the term which is 
used to indicate that operations between 
values of those types are permited. 

Component is the name of a value in a 
structured type. 

Constan t is a value which is either a 
literal or an identifier which has been 
associated with a value in a const dec- 
laration. 

Constant expression is an expression 
which can be completely evaluated by the 
compiler at compile time. 

Dynamic variable is a variable which is 
allocated under programmer control. 
Explicit allocates and deallocates are 
required; the predefined procedures NEW 
and DISPOSE are provided for this pui — 
pose. 

Element is the component of an array. 

Entry routine is a procedure or function 
which may be invoked from outside the 
module in which it is defined. The rou- 
tine is called entry in the module in 
which is defined. An entry routine may 
not be imbedded in another routine; it 
must be defined on the outermost level 
of a module. 

Enumerated scalar type is a scalar that 
is defined by enumerating the elements 
of the type. Each element is repres- 
ented by an identifier. 

External routine i s a procedure or func- 
tion which may be invoked from outside 
the module in which the routine is 
def i ned. 

Fi eld is the component of a record. 



Fi le type 
mechani sm 
Pascal/VS. 



1 5 

to 



a data type which is the 
do input and output in 



Fixed part is that part of a record 
which exists in all instances of a par- 
ticular record type. 

Formal parameter i s a parameter as 
declared on the routine heading. A 
formal parameter is used to specify what 
is permitted to be passed to a routine. 

Funct i on is a routine, invoked by coding 
its name in an expression, which passes 
a result back to the invoker through the 
rout i ne name. 



is the name of a declared 



Ident i f i er 
i tern. 

Index is the selection mechanism applied 
to an array to identify an element of 
the array. 

Internal routine is a routine which can 
be used only from within the lexical 
scope in which it was declared. 

Lexical scope identifies the portion of 
a module in which a name is known. An 
identifier declared in a routine is 
known within that routine and within all 
nested routines. If a nested routine 
declares an item with the same name, the 
outer item is not available in the 
nested routine. 



Module i s 
Pascal/VS. 



the compilable unit in 



Offset is the selection mechanism of a 
space. An element is selected by plac- 
ing an integer value in parenthesis. 
The origin of a space is based on zero. 

Packed record type is a record structure 
in which fields are allocated in the 
minimum number of bytes. Implementation 
defined alignment of data types will not 
be preserved in order to pack the 
record. Packed records may not be 
passed by read/write reference. 

Pass by read only reference is the 
parameter passing mechanism by which the 
address of a variable or temporary is 
passed to the called routine. The 
called routine is not permitted to modi- 
fy the formal parameter. If the actual 
parameter is an expression, a temporary 
will be created and its address will be 
passed to the called routine. A tempo- 
rary is also created for fields of 
packed records. 

Pass by read/write reference is the 
parameter passing mechanism by which the 
address of a variable is passed to the 
called routine. If the called routine 
modifies the formal parameter, the cor- 
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responding actual parameter is changed. 
Only variables may be passed via this 
means. Fields of packed records will 
not be permitted to be passed in this 
way. 



Pass by 



value i s the 
which a 



parameter passing 
copy of the value 



mechan i sm by 

of the actual parameter is passed to the 

called routine. If the called routine 

modifies the formal parameter, the coi — 

responding actual parameter is not 

affected. 

Pointer type is used to define variables 
that contain the address of dynamic vai — 
i ables. 

Proce d ure is a routine, invoked by cod- 
ing its name as a statement, which does 
not pass a result back to the invoker. 

Program module i s the name of the com- 
pilable unit which represents the first 
uni t executed. 

Record type is the structured type that 
contains a series of fields. Each field 
may be of a type different from the 
other fields of the record. A field is 
selected by the name of the field. 

Reserved word is an identifier whose use 
is restricted by the Pascal/VS compiler. 

Rout i ne is a unit of a Pascal/VS program 
that may be called. The two type of 
routines are- procedures and functions. 



Space type is used to define a variable 
whose components may be positioned at 
any byte in the total space of the vari- 
able. 

Statement is the executable unit in a 
Pascal/VS program. 

Stri ng represents an ordered list of 
characters whose size may vary at exe- 
cution time. There is a maximum size 
for every string. 

String constant is a string whose value 
is fixed by the compiler. 

Structured type is any one of several 
data type mechanisms that defines vari- 
ables that have multiple values. Each 
value is referred to generally as a com- 
ponent. 

Subrange scalar type is used to define a 
variable whose value is restricted to 
some subset of values of a base scalar 
type. 



Tag field i s 
defines the 
part. 



the f i eld of a 
structure of 



record whi ch 
the variant 



Type defines the permissible values a 
variable may assume. 

Type definition is a specification of a 
data type. The specification may appear 
in a type declaration or in the declara- 
tion of a variable. 



Scalar type defines a variable that may 
contain a single value at execution. 

S egme nt m odule is a compilable unit in 
Pascal/VS that is used to contain entry 
rout i nes. 

Set type is used to define a variable 
that represents all combinations of ele- 
ments of some scalar type. 



Type identifier 
declared type. 



is the name given to a 



Variant part is that portion of a record 
which may vary from one instance of the 
record to another. The variant portion 
consists of a series of variants that 
may share the same physical storage. 
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arrays 
fields, 



or records with structured 



type 

COMPLEX 



VECTOR 
CARRAY 
TETRA 



record 

RE,IM 
end; 
arrayCl 
arrayCO 
arrayCl 



REAL 

73 of INTEGER; 
9 3 of COMPLEX; 
3,1. .2,1. .4] 



of INTEGER; 



const 

{ Structured Constants } 
THREEFOUR = C0MPLEXC3 . ,4 . ) ; 
VECT0R_1 = VECT0RC7, 0:5,1); 
VECT0R_2 = VECT0R(2,3,,4); 
ZEROTETRA = 
TETRAC 

( (0:4):2 ), 

( (0:4), (0:4) ), 

( (0,0,0,0), (0,0,0,0) ) ); 



Cthe foil 


owing two decl 


arat i 


ons 


are equivalent 




} 


+ VECTOR 


3 


= 


CARRAY( 






+ 






C0MPLEXC1 


.0,0 


0), 


+ 






COMPLEXd 


.0,1 


0)=8, 


+ 






COMPLEX(0 


.0,1 


0)); 


VECTOR. 


_4 


= 


CARRAY( 

(1.0,0. 


0), 










(1.0,1. 


0):8 


► 








(0.0,1. 


0)); 




+ Example 
+ 

+ 


s < 


3f 


Structured Const 


ants 



type 

FORM = (FCHAR,FINTEGER,FREAL, 

FSTRING); 
KONST = 
record 

SIZE: INTEGER; 
case F: FORM Of 
FCHAR: (C 
FINTEGER: (I 
FREAL: (R 
FSTRING: ( 

case BOOLEAN of 
TRUE: ( 

LEN: packed 0. .32767; 
A : ALPHA); 
FALSE:(S: STRINGQ6)); 



CHAR); 

INTEGER); 

REAL); 



end 

const 

A 

PI 

BLANK = 

KONST (1, FSTRING, FALSE, ' 
STARS = 

K0NSK4, FSTRING, TRUE, 4, '****'); 



= KONSTd, FCHAR, 'A'); 

= K0NST(8, FREAL, 3. 14159); 



); 



Structured constants with 
variant record fields 
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